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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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® 
® 
THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 
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: a a, nN i mi alae a min ree cele ae ies eccaiacearie edrey Ras gie 
" FACILITY: 

VAX/VMS DECnet-C1 class driver 

: ABSTRACT: 


This module contains the DECnet-CI class driver FDT routines, 
SCS dispatcher, and fork routines. 


Kerbey T. Altmann, 17-Aug-1981 
; ; MODIFIED BY: 


V03-016 ADE3004 A. dge 24-Jul-1984 
Change name back to EOECNE SPHASE_III for now. The change in the 
name must be phased in b by updating the receiver to accept the 
oe ene new name before the transmitter can be updated to send 
ew name. The new name should be DECNETSCI Father than 
SEENETSPHASE JV. 


v03-015 LMPO0275 Mark Pilant, 12-Jul-1984 12:26 
Initialize the act info in the ORB to be a null descriptor 
list rather than an empty queve. This avoids the overhead 
of peck ine and unlocking the ACL mutex, only to find out 
that the ACL was et 


v03-014 LMPO0221 Piiant, 26-Mar-1984 16:43 
Change UCBSL _ownic™ to KORBSL OWNER. 
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v03-013 TMKO002 Tedd M. Katz 24-Mar-1984 

When connecting to a remote station over a specific local 
port, which is what this DECnet class driver does, the name of 
the local port together with the remote station address must be 
specified as an arguement to the CONNECT fork process call. This 
DECnet class driver was Spec tt yroe the name of the local port 
as PAA. It should now be speci ying the name of the local port 
as PAAO. If this is not done, the CONNECT will fail. 


chenge the SCS process name of the DECnet SYSAP from 
DECNETSPHASE_III to DECNETSPHASE_IV. 


v03-012 TMKO001 Todd M. Katz 08-F eb-1984 
Use the macro SEND_DG_BUF_REG to do transmits instead of 
SEND_DG_BUF. This allows me to remove the pseudo-CDRP which 
is currently buried within the CDB. This false CDRP was only 
Spine used to pass the opel ication data and CDT addresses to 
the fork process call, FPCSSENDDG. The fork process call issued 
by SEND_DG_BUF_REG, FPCS$SENDRGDG, requires these addresses to be 
in pogtese’s when it is invoked, and thus, doesn't require a 
CDRP in order to obtain them. 


v03-011 ADE3003 Alan D. Eldridge 19-May-1983 
Replaced constants with appropriate SBO$ symbols. 


v03-010 ADE3002 Alan D. Eldridge 19-Apr-1983 
Modified datagram internal SCS header ‘'size’’ field to 
handle new negative offset processing option. 


v03-009 ADE3001 Alan D. Eldridge 2-Feb-1983 
implified connect/disconnect control. Removed the sending of 
XON/XOFF sequenced messages. Issue a CONNECT oy if the 
remote sequence number is higher. Redefined the COB. 


v03-008 NPK3010 N. Kronenberg 24-Nov-1982 
Removed output array specifier from CONFIG_SYS call. 


v03-007 KTA0109 Kerbey T. Altmann 88-Jul-1982 
Fix bug in returning buffer info in SENSEMODE. 


V03-006 NPK3004 N. Kronenberg 22-Jul-1982 
ap pl Pd at to connect over specific virtual 


Fix bad branch destination. 
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0 
00 1 circuit instead of looking up the remote system and 
4 : connecting to that. 
00 1 v03-005 NPK3003 N. Kronenber 11-Jul-1982 
1 Fixed offsets from CONFIG_PTH/SYS for new format 
! returned by those routines. 
1 v03-004 ete Kathleen D. Morse 28-Jun-1982 
! Added S$PRDEF. 
! v03-003 KTA0097 Kerbey T. Altmann 20-Apr-1982 
1 
1 
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-SBTTL External and local symbol definitions 


; System definitions 


Adapter control block 
Connection descriptor 

Channel request block 

Complex buffers 

Device classes and types 
Device data block 

Device characteristics 

Driver prologue table defs 
Control block defs 

1/0 function codes 

Hardware IPL definitions 

Job info block 

1/0 request packet . 
Network mgnegenent definitions 
Object’s Rig ts Bloc 

Path block defininitions 
Process control block 

Port Descriptor Table 
Processor register definitions 
System block definitions 
System block output definitions 
System status codes 

Unit control block 

Interrupt vector block 

XMDRIVER symbols 


SSsssssss 
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SXMDEF 


: Local macros 


-MACRO SETBIT POS,BAS,?L ; Set a single bit 
BBSS ‘POS,BAS,L 


3 
-ENDM SETBIT 


-MACRO CLRBIT POS,BAS,?L ; Clear a single bit 
BacC = POS, BAS,,L 


is: 
-ENDM = =CLRBIT 
eMACRO PUSHQ ARG ; Push a quadword 
mova ARG,-(SP) Save argument on stack 
-ENDM PUSHQ 


MACRO POPQ ARG 
MOVG (SP)+,ARG 
-ENDM POPQ 
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Pop a quadword 
Restore argument 
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SDEFINI PARAM 


COUNT _C_ENTRY = ose 


ot ; COUNT table entry size 


; PARAM table entry size 

; Parameter bits and sizes 
; Parameter type 

; Parameter minimum value 
; Parameter maximum value 
; Parameter required flags 
; Parameter invalid flags 
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-VIELD OFF ,0,<- 
<VALUE ,10,M>,- 
thie. 6,M>,- : 


SDEFEND PARAM 


Offset word fields 
Offset value 
Width of field in structure 


SOOOCCCOCOCOOCCOCOOOOOOOOOOOOoOO 


SOOCOCOCOOCOoOoOOOooOoOo 
i a a kd dd 


$$STYP 


YP i <2aNMASV~CNT~WI1D> 
$$$TYP 


vP i <3aNMASV~CNT~W1D> 


0 
: 
80 90 .MACRO PARAM TYPE ,OF FSET, WIDTH=0,MIN=0 ,MAX=-1,REQUIRED, INVALID 
i 4 ; NOTE = The REQUIRED field can only check 1 bit! 
0 38 SSSNUM = SSSNUM+1 ; Count number of time executed 
0 94 SSSTYP = NMASC_'TYPE & PRM_M TYPE ; Isolate type 
39 32 SSSOFF = OFFSET & OFF_M_VACUE : Isolate offset only 
000 3 LIF NOT_BLANK <MIN>, SSS$TYP = S$STYP | PRM_M_MIN 
00 as ~LIF NOTZBLANK <MAX> S$$STYP = $$STYP | PRM“M"MAX 
00 99 SLIF NOTTBLANK <REQUIRED>, $S$S$TYP = $$STYP : PRM“M“REQUIRE 
900 90 -11F NOTTBLANK <INVALID>, $$$TYP = $$S$TYP ! PRM M~INVALID 
4 ; -WORD $$STYP 
00 “WORD $$SOFF ! <WIDTH @ OFF_V_WIDTH> 
000 4 -WORD MIN 
000 5 ~ WORD MAX 
000 $ «WORD REQUIRED 
000 ~ WORD INVALID 
444 -ENDM = =PARAM 
$ -MACRO COUNT TYPE ,OF FSET ,WIDTH=32 
; SSSNUM = SSSNUM+1 3; 6 number of time executed 
SSSOFF = OFF_M_VALUE & OFFSET 3; Isolate offset only 
SSSTYP = PRM_M_TYPE & NMASC_"TYPE ; Isolate type 
| 


AL 

TH, 8, S$SSTYP = SSSTYP ! <1aNMASV_CNT_WID> 
1H.16, = $$$7 

1H, 32, = $$$T 


! NMASM CNT COU 
! <WIDTA @ OFF _V_WIDTH> 
-ENDM COUNT 


-MACRO START_TABLE NAME ; Start Table declaration 


—— 
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00000000 
00000004 


00000009 
0000001F 
00000006 


00000010 


Sooooooo 


ooo 
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$SSNUM = 0 
"NAME TABLE = . 
.ENDM = START_TABLE 


«MACRO END _TABL 


END_ TABLE 


: Local symbols 


; $010 parameter offsets 


vo 


1 = 0 
2 = 194 
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; WORD 
NAME’ NUM = SSSNUM 


:19 
:11 
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Init number of entries 
Define begining of table 


Terminate Table declaration 
Create marker 
Number of entries 


Parameter 1 


Parameter 2 

Min size of CDB_B_RCV_CNT 
Max size of CDB_B_RCV_CNT 
CND_B_RCV_FQ threshold. 
signal XMSM_STS_BUFFAIL i 
Max tributaries on CI device 


Below this 
in 10ST2 


————e 


10 
= VAX/VMS DECnet-C1l Class Driver . 


16-SEP-1984 01:19:27 VAX/VMS Macro v04-00 Pa 
External and local symbol definitions 2 Het 851386 R.SRCJ - (8) 


» DRIVER. SRCJCNDRIVER.MAR; 1 


> 8 
§ ; Overlays of IRP 
: 7 ASSUME IRPSL_SEGVBN EQ IRPSQ_NT_PRVMSK+8 
$ SDEFINI IRP 
00000040 $6 ._ = IRPSQ_NT_PRVMSK ; Overlay network priv mask 
rf o7 SDEF IRP$B_ INDEX -BLKB 1 : Vector index for CDB 
00000054 41 65 ._ = IRPSL_EXTEND 
28 SDEF IRPS$L_CDB -BLKL 1 
82 68 SDEFEND IRP ; End of IRP overlays 
ait 370 
i ys > Definitions that follow the standard UCB fields 
74 ° 
09 o SDEFINI UCB ; Start of UCB definitions 
00000090 000 § - = UCBSC_LENGTH ; Position at end of UCB 
90 5 SDEF UCBSL_LIS CDOT .BLKL 1 3; Addr of Listening COT 
9 SDEF UCBSL_TWIN_COT .BLKL 1 3; Addr of loopbacked accept CDT 
SDEF UCBSL-DGHDRSZ .BLKL 1 ; Size of the SCS header for DG's 
§ SDEF UCBSW_DUMMY -BLKW 1 3; Dummy location for unwanted param's 
SDEF UCBSB_CN PORT .BLKB 1 ; Our port number 
SDEF CBSB_-RCU_CNT .BLKB 1 ; Number of receive buffers 
SDEF UCBSL_VEC_CDB .BLKL MAX_TRB ; CDB address vector 
SDEF UCBSW_VEC_CHAN .BLKW MAX_TRB ; User channel lookup vector 
00000100 UCBSC_CN_LENGTH = <.+15>8-16 ; Size of UCB padded to a quadword 


: Define device status bits 


$VIELD uCB,0,<- ; CNDRIVER UCBSW_DEVSTS bits 
<CN_INITED,,M>,-; Device init‘'ed 


End of UCB definitions 


SDEFEND UCB 
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; CNDRIVER COB definitions 
SDEFINI COB 


counters 


» 
ee 

wmo 
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_VIELD CDB,0,<- 
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“BLKB 
COB B_REMVER 
-BLRB™ 1 

STCNT  -BLKB 
ENGTH = <.+15>8-16 
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Fork Queue Linkage 
Structure size 
Structure type 
Fork IPL (not UCB FIPL) 

Must be Less than SCS‘s IPL (8) 
Fork P 

Fork R 

Fork R4 


Transmit IRP’s awaiting completion 
Receive IRP's guerting buffers 
Receive buffers containing messages 


Ptr to 10$_SETMODE 

Time Last BISCONNECT was issued 
Buffer size 

Circuit status 

Receive buffer count 

Receive buffers on free queue 
Tributary address 

Circuit state 


Receive oye count 
Transmit byte count 
Data buffers received 
Data buffers sent 


Addr of UCB 

Ptr to CDT 

Remote's protocol version 

Remote's goer ating systen 

Label combining two fields above 
Dummy location for unwanted param's 
Restart counter for slowing down 
restart vroquenty 

Pad structure out to a quadword 


; Define status bits used in CDB_W_STS and CDB_B_STA values 


Tributary gtetus bits for CDB_W_STS 
Tributary is in RUN state 

Call to 
LL to ACCEPT pending 

LL to DISCONNECT or FORK pending 
LL to REJECT pending 


Page 
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9 C § COB_C_IDLE = 9 :; Tributary is idle 
C COB_C_OPEN = ; Tributary connection has been made 
§ ¢ 8 CDB_C_CONN = § ; Tributary has CONNECT pendin 
C COB_C_LSTN = ; Tributary is Listening for connect 
4 c 69 CDB-C“ACPT = 4 ; Tributary has ACCEPT pending 
¢ $3 SDEFEND COB 
000 6 


(6) 
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5 -SBTTL Standard tables 


: Driver prologue table 


A = OPT “SCS, 
UcBsize = UCBSC” N- CENGTH, - 


; Length of UCB 
= CNDRIVER ; 


Driver name 


DPTAB = 3 OPT-creation macro 
dD x 3; End of Rasy label 

ADAPTER = NUCL 3; Adapter 
FLAGS 3 Br iver pearives scs 


DPT_STORE INIT Start of load 


initialization table 
IPL 


+ DARD 04 et tt ee eet PPR PRN 
FUN (9 OD NA WNE WN 8 ODNOAU EW - OOONO 
A 


DPT_STORE UCB,UCBSB_FIP pL .8.8 : Device fork 
DPT-STORE UCB, UCB$B_DIPL,B 3; Device interrupt IPL 
4 DPT“STORE ORB.ORBSB_FLAGS .6,- : Protection block flags 
4 20RBSM PROT_16> : SOGW protect’ on word 
44 DPT_STORE ORB,ORBSW_PROT 0,0 3 detay t protection 
rh DPT-STORE ORB, ORBSL “OWNER, L o<*x010001> ; owns the device 
30 DPT“STORE UCB.UCBSL ~DEVCHAR L,- : Device characteristics 
05 DEVSM_NET!- ; 0 6@.g-, network device 
B28 DEVSM_REC!- ; record oriented 
05 DEVSM_IDV!- ; input device 
0030 ,DEVSA_ODV= ; output device 
005 DPT_STORE uce ucese. DEVCLASS,B,DCS$_SCOM ; Sample device class 
058 DPT“STORE UCB.UCB$W~DEVBUFSI2,aW,- : Default buffer size 
ba 98 “SCS$GW_MAXDG 
06 9 DPT_STORE REINIT ; Start of reload 
06 9 : initialization table 
106 9 DPT_STORE DDB,DDBSL_DDT.D.CNSDDT : Address of DDT 
94 9 DPT-STORE CRB 3; Address of Ggvice 
067 400 cna. INTD*VECSL -UNITINIT,=; unit, initialization 
std re D.UNIT_I : routine 
ines 40 DPT_STORE END : End of initialization 
0000 404 3; tables 
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3 ; Driver dispatch table 


4 
d 
4 § DDTAB oe 
4 DEVNAM = CN,- 
41 FUNCTB = CN FUNCTABLE,- 
41 CANCEL = CARCEL,- 
413 ALTSTART= ALT_START 
ol? 3 Function dispatch table 
419 CN_FUNCTABLE: 
48 FUNCTAB ,- 
41 <READLBLK,=- 
420 WRITELBLK,- 
421 SE TMODE, = 
4 : SENSEMODE = 
4 SETCHAR = 
426 > 
425 FUNCTAB ,- 
4 6 <READLBLK,=- 
4 WRITELBLK,- 
4 8 SETMODE, = 
4 SENSEMODE ,= 
430 SETCHAR = 
431 > 
4 é FUNCTAB CLR_IRP,- 
4 <READLBLK,=- 
434 WRITELBLK,- 
435 SETMODE,- 
4 : SENSEMODE , = 
4 f SETCHAR = 

> 
439 FUNCTAB RCV_FDT,= 
460 SREABLELE,= 
44g FUNCTAB XMT_FOT,= 
44. <WRITELBLK, = 
445 FUNCTAB SETMODE_FDT,- 
446 <SETMODE,- 
44  SETCHAR - 
rr FUNCTAB SENSEMODE_FDT,- 
450 <SENSEMODE> 
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DDT-creation macro 
Name of device 

FDOT address 

Cancel 1/0 routine 
Alternate start 1/0 


FDOT for driver 
Valid I/0 functions 
Read logical 

Write logical 

Set device mode 
Sense mode 

Set device chars. 


; Buffered functions: 
; Read 
; Write logical 


logica 


Set device mode 
Sense mode 
Set device chars. 


; Init IRP fields 
; Read logical 


Write logical 


; Set device mode 
; Sense mode 


Set device chars. 


FDT read routine for 
read logical, 


FDOT write routine for 
write logical, 


FDOT set mode routine 
set mode 
set characteristics 


FDOT 
for 


sense mode routine 
sensemode 
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v04- P2 buffer verification tables =-SEP-1 DRIVER. SRE Rede CNDRIVER.MAR;1 (9) 
: § -SBTTL P2 buffer verification tables 
454 : 
: 5 ; Define COB parameters 
? 5 START_TABLE TRIB_PRM ; Start of tributary parameter table 
4 : PARAM PCCI_MST, OFFSET = CDB_B_DUMMY,- ; Trib maint state 
460 WIDTH = 3; Dummy location 
461 MIN = NMASC _STATE_ON,= 
4 3 MAX = NMASC~STATE_OFF,= 
4 REQUIRED= 
4 4 INVALID = COB_M_RUN 
4 6 PARAM PCCI_TRI, OFFSET = CDB_B_TRB_ADDR,- ; Trib address 
WIDTH = 8,- 
8 MIN = 0,- 
MAX = 15,- 
REQUIRED= 0,- 
INVALID = COB_M_RUN 
PARAM PCCI_MRB, OFFSET = CDB_B_RCV_CNT,- : Trib max buf 
WIDTH = 8,- 
MIN = © 
MAX = 255,- 
REQUIRED= 


INVALID = COB_M_RUN 
END_TABLE TRIB_PRM :; End of tributary paramerer table 


Define UCB parameters 
START_TABLE LINE.PRM ; Start of device parameter table 
PARAM PCLI_DUP, Ad = cBsu DUMMY ,= 
= 
othe = NMASC _DPX_FUL,= 
= NMASC™ DPX “HAL = 
REQUIRED= 0 
INVALID = UCBSM_CN_INITED 


PARAM PCLI_CON, ate A — DUMMY , = 


Duplex 
§ tetany location 


© OD OD CD GD CD OP CD CD CD 


RES ODNAUE VN O ODNOUE WO 


0OO000 ONIN NNN NNN NOOO OD 


Controller mode 


POPPI BBP Be BB BB BB EEE PPP PEPE PPP PPP PPE EEE 


= 
38 wl = ; Dummy location 
9 MIN = NAASC _LINCN_NOR,- 
38 May + NMASC “LINCN=LOO,- 
9 REQUIRED= 0 
i INVALID = utesM. CN_INITED 
; PARAM PCLI_BUS, OFFSET = UCBSW_DEVBUFSIZ,- : Block size 
WIDTH = 16,- 
4 MIN = 32/- 
5 MAX = 946,- 
6 REQUIRED= 0,- 
, INVALID = UCBSM_CN_INITED 


H 10 
= VAX/VMS DECnet-CI Class Driver 16-SEP-1984 AX/VMS Macro v04-00 P 1 
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PARAM PCLI_BFN, CBSB_RCV_CNT,=- ; Maximum receive buffers 


—O 


= 255,- 
IRED= 
INVALID = utesM. CN_INITED 


| 
1 
1 
1 END_TABLE LINE_PRM 3; End of device parameter tables 
1 
1 


: Tributary counter type codes 


cE 
C 
ce 
cE 
cE 4 
DA ig 
ian 
ane 
43 ? START_TABLE TRIB_CNT ; Start of Tributary COUNTER table 
an¢ ; COUNT CTCIR_BRC, WIDTH=32, OFFSET=CDB_L_BRC ; Bytes received 
OE 4 COUNT CTCIR_BSN, WIDTH=32, > OFFSET=CDB-L-BSN ; Bytes sent 
£4 5 COUNT CTCIR_DBR, WIDTH=32, OFFSET=CDB_L_DBR =; Data blocks received 
43 § COUNT CTCIR-DBS, WIDTH= > OFFSET=CDB- L-DBS ; Data blocks sent 
ee 8 END_TABLE TRIB_CNT ; End of Tributary COUNTER table 
OEE 0 
tt 1 START TABLE LINE_CNT ; Start of device COUNTER table 
43 § END_TABLE LINE-CNT 3; = null table 
ae 
oF 5 : Our SCs process name and connect data 
00000006 OF $ PROC_¢ NAM = 6 ; How much of PROC_NAM must match 
45 53 41 48 50 24 54 45 : $3 $3 $ oF0 5 ~VASCII "DECNETSPHASE_I11° ; How SCS knows us -- 16 characters long 
1 40 CONN_DATA: 
1 1 6 41 en ; Protocol version 
0 0103 4 -BYTE 8 ; Operating Syston (VMS) id 
senate atelier nadia * %)* * ! 2 4 -BYTE (14) ; Remaining fields must be zero 
11 44 
00000000 Hf $3 OLD_C_PROT = 0 ; Use for original protocol 


-——— 
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vaya UNIT » Unit initialization routine gre 138 EE DRIVER. SRCICNDRIVER.MAR; 1 wi (10). 


-SETTL UNIT_LINIT, Unit initialization routine 


+¢ 
UNIT_INIT = Readies unit for 1/0 operations 
The operating systee calls this routine after calling the 
controller initialization routine: 
- at system startup 
- during driver loading 
- during recovery from a power failure 
The unit is put online. 
Inputs: R5 = UCB address 


Outputs: ALL registers are preserved 


UNIT_INIT: : Initialize unit 
BISw #UCBSM_ONL INE ,UCBSW_STS(R5) ; Set unit online 
RSB ; Return 


SINNER AA AAPA AAA MAMI 


WO OODNA UE WH" OOONAUE 
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bya tit CLR_IRP = fate lst ize IRP fields mii et 8: ‘84 DRIVER. SRCICNDRIVER.MAR; 1 9 (11). vi 
u 7 .SBTTL CLR_IRP = Initialize IRP fields 
11 7 i+ 
i i : CLR_IRP - Initialize IRP fields 
11 ny ; 
He i ; Selected IRP fields are initialized. The function code with modifiers 
Vt ; gi 3; is setup. 
gi} Be | : Inputs: R3 ~=IRP address 
at He Outputs: ALL other registers are preserved. 
a3 88 ; IPL may be FIPL or ASTDEL 
115 590; 
0115 Hf éLR. IRP: z Initialize IRP fields 
38 A 7C «#20115 3 CL IRP$L_10ST1(R3) ; Clear IO0SB image | 
¢f A D4 0118 59 CLRL IRPS$L_SVAPTE(R3) ; Init buffer po nter 
OA B4 0118 594 CLRW IRPSW_BOF F (R3) ; No quota to return yet at I/0 post 
S54 A D4 OIE 595 CLRL IRP$L_CDB(R3) ; No CDB yet 
40 a3 =7C BIS, 596 CLRQ IRP$B_INDEX(R3) 3; No trib. i.d. yet | 
5 BE 3h ee 


w-— ———————————E 
i 


ce 
; 


Transmit 1/0 Operation FDT Rou 5=-SEP-1984 DRIVER. SRCICNDRIVER.MAR; 1 (12) 
~SBTTL XMT_FDT, Transmit 1/0 Operation FDT Routine 
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oO 
oO 


+ 
XMT_FDT = Transmit 1/0 Operation FDT Routine 


This routine is called - the SYS$QIO system service to dispatch a 
pete di g AP naa The buffer is validated for access and copied to a 
ystem buffer. 


The Q10 parameters used for WRITEs are: 


Pi = address of the buffer 
P2 = size of the buffer 
Inputs: R3 = IRP address (1/0 request packet) 
R4 = PCB address (process control block) 
RS UCB address (unit control block) 
R6 - CCB address (channel control block) 
R7 = bit number of the I/0 function code 


IPL = ASTDEL (2) 
Outputs: RO = status of transmit request initiation 


R1,R2 are clobbered, all others are preserved. 


Be Se Ge Se Oe Se Oe Be Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Sees 
+ 


XMT_FDT: Transmit FDOT routine 
BSB 


Th 9D DVO D079 CI 08 8 FFF SN NV SUSU SUSU TSS ISSO 
PEEP AAA AA AA AA AA AA AAAAAAAAAAAAAAAAAAA AAAS AAAAAAAASOOAAOAO 


PUPA BB BB BB EE EWAN NAINA POPOPONIPONPINNID 2 OOO OO OOOO 


DEVI O OD NONE WIN 9 OD NA UE WIN OS OD NAME WN SO OO NA UE WN O DOONAN ES Wit 
wo 


69 10 XMT_RCV_FDT_CO ; Get user buffer 
; 7 no return on error 
00000000 ' GF 16 JSB G*EXESWRITECHK 3; Check buffer access 
3; (no return means no access) 
GET_BUF : 3; Get buffer 
3— «=a PUSHR #*M<R1,R2,R3,R4,R5> 3; Save registers 
00000000'GF 16 JSB G*EXESBUFFRQUOTA ; Check if process has sufficient qu. 
49 50 €9 BLBC . : If LBC quota check failure 
51 Q0000004C 8F CO ADDL #CXB$C_OVERHEAD,R1 3; Add in overhead 
00000000'GF 16 JSB G*EXESALONONPAGED : Allocate buffer for output 
33 50 €9 LBC ; If LBC allocation failure 
08 A2 51 00180000 BF C1 ADDL3 #<OYNSC_CXB@16>,R1,IRPSW_SIZE(R2) ; Set the size 
62 48 A2 SE MOVAB CXBS$C_HEADER(R2), (R2) : Store pointer to data area 
51 DO MOVL (SP),R1 3; Get back message size 
94 AE 52 OD MOVL R2 (SP) : Save buffer address 
3 08 AE OD MOVL 8(§P),R : Retrieve address of IRP 
50 008 ge i) MOVL PCBSL_JIB(R4),RO ; Get JIB address 
OA bes SUBW R} J 1BSL BYTCHT (RO) ; Adjust buffered 1/0 quota 
CA ef D MOVL Reo tReet SVAPTENR ) 3; Setup buffer pointer 
OA 8 MOVW R1, IRP$W_BOFF (R3) ; Set number of bytes charged to quo 
0B BEQL ==: 108 : If EQL then none | 
06 gf - 9} 3 BBS #IRPSV_FUNC, IRPS$W_STS(R3),10$ ; If BS then ‘‘read’’ function 
0062 3 é 1 MOVC3 Ri -@1RPSL_10ST2(R3) .a(R2) : Move data 
01 00 10$: MOVL #1,R : Indicate success 
3€ BA 208: POPR #*M<R1,R2,R3,R4,R5> ; Restore registers. ‘ 
5 RSB : Return to Cco-routine with 


can 


oon 
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C 
/0 Operation FDOT Routine 
-SBTTL RCV_FDT, Read 1/0 Operation FDT Routine 


et- 
I 


; RCV_FDT = Read 1/0 Operation FDT Routine 


SOOOuvm ad 


; This routine is called by the SYS$QI0 system service to dispatch a 
; READ 1/0 request. 


/V 
DT 
184 7 
184 g 8 
184 6 3 
184 660; 
184 661; 
184 6 ¢ 3 
i 7 oi : 
184 665: 
: 2 666 3; The Q10 parameters for READs are: 
184 968 : Pl = address of the buffer 
184 : : P2 = size of the buffer 
4 ? of : ALL other parameters are unused. 
4 4 ere : The specified buffer is checked for accessibility. The buffer address and 
184 6735 ; count are saved in the packet. Then IPL is raised to device fork IPL and if 
0184 674 ; a message is available the operation is complete. Otherwise the packet is 
4 " of? ; queued onto the waiting receive list of the CDB. 
0184 677; 
0184 678 ; Inputs: R3 = IRP address (1/0 request packet) 
0184 679; R4 - PCB address (process control block) 
0184 680 ; RS - UCB address (unit control block) 
0184 681; R6 = CCB address (channel control block) 
4} ? tt) : R7 = bit number of the I/0 function code 
0184 684: IPL = ASTDEL (2) 
0184 on? $ 
O18 on6 ; Outputs: RO = status of transmit request initiation 
age 688 : R1,R2 are clobbered, all others are preserved. 
184 690 :-- 
0184 691 RCV_FDT: ; Read FDT process routine 
OA 10 0184 69¢ BSBB = XMT_RCV_FDT_CO : Get user buffer 
186 8669 ' 3; * no return on error 
00000000'GF 16 0186 694 JSB G*EXESREADCHK 3 Check accessibility 
18C = 695 ; (No return on no access) 
50 «(01 4 bige 696 MOVL #1,R0 ; Say “‘success ‘ 
0 Ht o44 RSB ; Return status to co-routine 


---- 
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1 700 
13 701 XMT_RCV_FDT_CO: 
14 C QI 7 ¢ MOV7WL $*#SS$_BADPARAM,RO ; Assume bad parameters 
51 O4A § 19 7 MOVZWL P2(AP),R1 3; Get buffer size 
1 19 704 BEQL 1 : If zero, abort 1/0 request 
42 AS 3 Bi 0199 705 CMPW R1 ,UCBSW_DEVBUFSIZ(R5) i: Is buffer too big? 
C 1A 0190 7 § BGTRU 1 : If GTRU yes, abort 1/0 request 
59 6 06 19 7 MOVL  P1(AP),RO : Get user buffer virt address 
3C A DO O1A2 708 MOVL RO, IRP$L_10ST2(R3) : Save i 
2 16 106-709 JSB a($P)+ : Call back our caller 
03 3 1A ah BLBS RO,20$ : If LBS, continue 
0100 «31 «O1ABS 71 108: BRw ABORT_REQ : Abort the request 
FAS Race 
1AE 3=— 716 ; Okay so far. Setup to return to EXESQIORETURN <= which returns to 
1AE = 715 ; the user with SS$_NORMAL in RO. This means that all subsequent 
1AE at 3; errors must be reported via the I0SB. 
iar HB 
1AE 719 PUSHAB G*EXESQIORETURN : Setup return address on stack 
1B4 720 SETIPL UCBSB_FIPL(R5S) ; Raise IPL to fork level 
0188 721 3 3; to lock the data base 
0188 7 ¢ ; Fall thru to ALT_START 
0188 7 3 


Q0000000'GF 9F 
| 


at 


| 
| 
| 
| 
| 
| 


“mm 
4 
m 
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-SBTTL ALT_START, Alternate Start 1/0 Routine 
++ 
ALT START = Alternate Start 1/0 Routine 


; ch entry point is used to stepeted IOS_READLBLK and IO$_WRITELBLK requests. 
; The IRP is either built by our own FDT routines, or by some higher Level 
Executive agent fe -9 A: RIVER). All 1/0 status, including errors, must 


be passed via IOPOST in the 1088. 


; NOTE: The CHAN field of the IRP is sufficient to map to a CDB. 


Inputs: At - IRP address 
RS = UCB address 


ALL pertinent fields of the IRP are assumed to be valid. 


Aur 


IPL = FIPL 
; Outputs: RO-R4 Garbage 
T_START: 
0210 8F 58 PUSHR #*M<R4,R9> ; Save reg 
os 3 6SBB 3; Process request 
0210 8F BA POPR #*M<R4 RID ; Restore regs 
05 RSB ; Return to caller with garbage in RO 
0790 30 5$ BSBW KLATE : Get COB from IRPS$W_CHAN 
5D 50 =€9 BLBC Re “xe sg)’ 6 ; If LBC then error 
ASSUME CDB_V_R 5° 

59 3A a9 £9 BLBC COB ¥ “Sr8cR ) ABORT STARE; If LBC then not in RUN state 
57 2A A3 IRPSW_ ststhS), RCV_START : If BS then 10$_READ else 10$_WRITE 


OSVVGOOCOCCOOCOCBVWWIWVIVIVIVIVIVIVOVIVOVIVIVOIVOVOOIVIOIOIOOIOOOaN xz 


RININNS OOAOWWOM & 0900 09 0D Cd Cd C9 C9 Cd Cd Cd G9 Cd G9 00 09 0D CD Cd CD CD CDCR CD ODCD 


: Fail thru to XMT_START 
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18 163 -SBTTL XMT_START, Start Transmit Operation 
1D 38 p++ 
19 788 ; XMT_START = Start Transmit Operation 
102 770: 
1D so ; This routine is called to start a transmit operation. The tributary is 
1D ue ; known to be up and running at this point. All status must be returned via 
1 4h 3; the I0SB. 
D2 775: 
1D 776 ; Inputs: R IRP address 
1D 58 5 “9 Re . ucB paareea 
1D 4h : R9 = COB address 
1D 779 ; 
18 4 ? 3 IPL = FIPL 
1 § ; Outputs: RO = status of transmit request 
1D , 4 : R5-R7 are preserved. 
1D2 786 :-- 
p27 ; KMT_START: 
51 32 A3 1D 788 MOVZ IRPS$L_BCNT(R3) ,R1 3; Pick up length 
50 2¢ a3 DO 0106 789 MOVL  IRPSL~SVAPTE(RS) ,RO : Pick up head of buffer 
52 60 ape as! _ MOVL (RO) ,R2 : Get beginning of user message 
O1DD 19 " «}sAdd Cl padding to keep beginning quadword aligned 
52 9? 3 $1bD 794 6118 #*X<07>,R2 : Need padding ? 
?7 13 O60 795 BEQL 208 : Tf EOL no 
72 »201 8E 156 79 MNEGB #1,-(R2) 3; Pa 
nM RE Be p saree big sao 
1€9 799 208: 3 
494 Bo ; Send it to SCS requesting that the datagram be returned when done. 
Sieg 03 PusHa R2 3; Save user nsg & IRP addresses 
38 Ad 1 B61 OTE CMPW R1 ,CDB_W_BUFSIZ(R9) : Msg size within bounds? 
1 1A 1F be BGTRU 6 3: If GTRU then no 
; 0 cg 1F 5 SUBL #32,R2 ; Go to begining of PPD header 
54 = < 1F $ SUBL3 RO, R2,R4 3; Get offset to top of buffer 
2 4 D1 O19 CMPL R4 ,@CXBSC_HEADER-32 :; Is header big enough ? 
5 19 OC 3 BLSS : If LSS then header too small 
08 A 4 OAM rs MNEGW R4,8(R2) 3; Neg. offset to top of buffer 
AA 6 10 MOV #DYNSC_CIDG,10(R2) 3; Sturcture type 
54 008405 »D 6 811 MOVL — UCBSL_POT(R5) ,R4 : Recover the POT 
1g SEND_DG_BUF_REG #1,- ; Control returns immediately 
1 CDf=CDB_L_CDT(R9) ,BUFFER=(SP) 
08 50 =—o«éE9 1 14 BLBC RO ,60$ : If LBC, datagram not queued 
18 15 3; Restore IRP address 
1c 89 s «463 OF 1 16 INSQUE (R3),@CDB_Q_XMT_IRP+4(R9) 3; Queue IRP 
: 40$: RSB ; Return to await completion 
2 8 60$: POPQ R2 3; Restore IRP address 
6 $f ABORT_START: 


eee ES Be RE aan Rk 


ii 
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0686 «831 8368 Ha BRW ABORT_IRP_POST ; Report SS$_ABORT via 10SB 
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-SBTTL RCV_START, Start Receive Operation 
++ 
: RCV_START = Start Receive Operation 


3; This routine is called to start a receive operation. The tributary is 

3; known to be up and running at this point. If IRPSL_SVAPTE is none zero 

3 then it is assumed to be system buffer to be added fo the receive free list. 
3; ALL status must be returned via the I0SB. 


; Inputs: t = IRP address 

: R5 = UCB address 
R9 = COB address 
IPL = FIPL 


; Outputs: RO = return status of receive request 


cv START: 
fa MOVL R9,RS ; Transfer CDB pointer 
BSBW ADDRCVLIST 3; Add IRP buffer to free List 


; Check to see if message is available 

REMQUE @CDB_Q_RCV_MSG(R9) ,R2 ; Dequeue a received message 
BVS 1 ; Br if none 

BRW FINISH_RCV_10O ; Complete the 1/0 request 

: No message available. Queue IRP to await arrival of message. 


INSQUE (R3),@CDB_Q_RCV_IRP+4(R9) ; Queue IRP to await message 
RSB ; Return 


— 
So 
oO 
o 
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SETMODE _FDT, 


Set 
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; + fa control parameters. 
e 


ETMODE_FDT: 


gm 
16SEP=1984 01:19:27 

node 1/0 operation FOT S-sEP=19B6 00:11:66 
.SBTTL SETMODE_FDT, 


AX/VMS Macro Vv04-00 
DRIVER. SRCICNDRIVER.MAR; 1 


Set mode 1/0 operation FDOT routine 


rage 33, 


++ 
SETMODE_FDT = Set mode 1/0 operation FDT routine 


Optionally startup/shutdownt the device or one 


of the tributaries. The subfunction modifiers are as follows: 
IOSM_CTRL - If set, request is for device. Else, for tributary. 
10$M_ STARTUP - gree’ device or establish tributary connection. 


10$M_ SHUTDOWN utdown device or disconnect tributary. 


The Q10 parameter for SETMODE is: 


P2 = Optional address of buffer descriptor for extended characteristics 


; Inputs: R3 = IRP address 
R4 = PCB address 
RS = UCB address 
R6 = CCB address 
R7 = Function code 
AP = address of first Q10 parameter 

; Gutputs: RO = status of setmode request 


R3-R5 are preserved. 
R7-R9 = destroyed 

; Setmode FDT processing 
No return on error. 


On return, there's a buffer attached to IRPS$L_SVAPTE containing a 


3; Copy the characteristics buffer, if any. 
; copy of the user buffer -- hence we cannot ‘‘abort’’ the Q10 passed 
3 4 


point but must return all errors via the 10SB. 
3; Upon return, the IPL has been raised to FIPL 
6sBw GE T_CHAR_WBUF : Get P2 characteristics buffer 
3 > no return on error 
MOVZWL IRPSW_FUNC(R3) .R7 3; Get full function code. 
BC S*#10SV_CTRL,R?, 10S :; Br if not controller request 
BRW SETMODE CTRL : Process controller request 


0$: 3 
3; Perform setmode request on a tributary 


BsBu = XLATE ; Get CDB address if any 

BBC S*#10$V_SHUTDOWN,R7,40$ : Branch if not trib shutdown 
: $hutdown tributary modifier specified -- always successful. 

3 Shutdown may complete ahead of other queued 1/0 for this tributary. 
6LBC RO,FINISH SUC : If LBC then no CDB 

BSBW = ZAP_CDB_R9 : Do the dirty work 
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1 408: BRB FINISH_ SUC ; Always return “success” 

A "- $s JOSM_STARTUP tributary modifier specified or no modifier. 

. : Validate the P2 buffer and its contents. 

A MOVAB TRIB_PRM_TABLE,R1 ; Set address of verification table | 

F CLRL R 3; No status flags yet 

61 BLBS «RD, 508 If LBS then ne COB 

64 MOVZWL CDB_W_STS(R9),R2 : Get status flags 

68 50$: BSBW VALIDATE _P2 3 Validate the Pd buffer 

BLBC RO,FINISA_REQ : If LOC, report error via I0SB 


e 

$ 

4 

é 

0 ; Check trib address. If this is a trib address change for this 

1 ; channel (Cin which case unconditionally give up the old CDB even if 
§ 3 the Q10 subsequently fails), or if there is no current CDB, then 

? 3 attempt to bind this channel to the CDB for the new trib address. 

5 MOVZWL #NMASC PCC TRI,R1 Get trib address param i.d. 

§ BSBW UNPACK_P2_BOF From P2 buffer 

If LBS, trib was specified 

3 If LBS, no CDB = return RO,R1 
No trib a 
0 I ° 
4 

é 

8 

9 

0 


no 
aeeress being changed ? 


BLBS RO. FINISH_REQ 


60$:  BLBS  R9,708 
CMPB —s-R2, CDB_B_TRB_ADDR(R9) 


CLRW UCBSW_VEC_ CHAN(RS)CR2) 
ZAP R 


_CBB_R9 
708: BSBB meu TRIB 
BLBC RO, FINISH_ERR 


: [otbutary now exists change its characteristics and set them 
; if trib is 


~y" use current COB 


If EQL no 
Give-up previous CDB 
Shut it down 
Init/allocate CDB 

f LBC, report error 


So 
m 
wr 
mw OM ammnuiw 
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80$: 
established. 
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BANANA AAA EE BE EB BE AAA AAA AAA IOINPINININININD — 
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57 06 1 1 BC S“#10$V_STARTUP,R7,FINISH_SUC ; Br if not startup request 
50 02C4 BF C ¢ MOVZWL #SS$_DEVACTIVE,RO 3; Assume trib already active 
3A A C MOVZ2WL CDB_Q_STS(R9) RI : Get current status 
4 ASSUME CDB-C"IDLE £0 0 ; 
51 FA9 8 Al 5 BISB CDB_B_STA(R9) ,R1 ; OR in the state 
51 0 Ad ‘ AS 6 BISL CDB_L SE TMODE (RO) RI : OR in pending SETMODE address 
19 A9 7 BNEQ pANTSB_ERR : If NEQ then can't do startup 
30 Ad =—s«53 4 AB 8 MOVL R3,COB_L_SETMODE(R9) : Save IRP address 
027¢ 30 O2AF 9 BSBW = START_TRTB : Startup the trib 
: ¢ : Fall thru to QIORET 
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-SBTTL Complete Q10 request routines 
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Deo Se Se Se Oe Se Se Oe Se Ge Be Se 


The following routines all exit the $Q10 system service with status in RO. 
lf an error is not being returned, further status will be eventually passed 
via the IOSB when the IRP undergoes post processing. 


impure: 8s Ute ccarese 
IPL may be FIPL or IPLS_ASTDEL 
00000000'GF 17 bioRET:  JHP G*EXESQIORETURN ; Return success in RO to user 
50 2c 00 ment an $*#SS$_ABORT,RO ; Setup error status 
00000000'°GF 17 ~ JMP G*EXESABORTIO ; Exit Q10 service with error 


+ 
The following routines exit the $Q10 system service with SS$_NORMAL and 
send the IRP back to IOPOST to return final status via the 10S8. 


Inputs: R3 IRP address 
R5 UCB address 


IPL may be either FIPL or IPLS_ASTDEL 


WOODOODOODOODOOOOOOOO0O0O000000000000 
OO ©0009 09 09 09 09 09 69 09 09 SI NIN NII NNN OA AAA AAO 
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994 ;- 
995 FINISH_SUC: 
ss» 68tUCrRR 996 MOVZWL S“*#SS$_NORMAL ,RO 3; Set success 
997 FINISH_ERR: 
51 04 8 CLRL R1 :; Clear second I0SB longword 
09 £0 999 BBS S“#10$V_CTRL,- ; Skip for controllers 
OA 20 A3 1000 IRPSW_FONC(RS) ,FINISH_REQ ; 
1001 ASSUME CDB_V_ RUN EQ 0 : 
0750 €9 10 ; BLBC RO,FIRISH_REQ : If LBC then circuit not up 
51 00002800 8F 00 1 MOVL #XMSM_STS_ACTIVE!- ; Indicate circuit up 
1004 XMSM~STS~RUNNING,R1 ; 
1005 FINISH_REQ: 
00000000°GF 17 } 8 JMP G*EXESF INISHIO ; Complete the 1/0 


a 


Sons 


4 11 
eryns DECnet-C1 Class Driver 16-SEP-1984 01:19:27 VAX/VMS Macro Vv04-00 Page 
NeW. W.TRIB = Al locate and init new COB eet 8b;19 366 DRIVER.SR REIC CNDRIVER.MAR; 1 ’ 3 
+ ! 9 -SBTTL NEW_TRIB = Allocate and init new CDB 
DB 101 :¢ 
oS ! 1 ; NEW_TRIB - allocate and init new CDB 
DB 1014 : 
DB 1015 ; A COB is allocated and initialized and stored in the UCB CDB vector. 
fe ! 19 3; The address is also stored in IRPSL_CDB. 
DB 1018 : 
dB 1 i§ ; Inputs: R2 Trib address 
dB 1 9 : R35 IRP address 
oS ! 3 R5 UCB address 
DB gi ; Outputs: R9 CDB address 
eS : é RO-R2 are clobbered. ALl other registers are preserved. 
DB 1097 :- 
bB SC 8 NEW_TRIB: 
AS 52) =90 dpbB 1 MOV RPEB pepente? 3; Set the trib number 
50 0641 BF 3C O2DF 1030 MOVZWL Ree DEVALRALLOC RO ; Assume error 
O0EO C542 BS «(02E4 1031 TSTW ucesa. VEC_CHAN(R5)(R2) : Claimed by another channel? 
3 1 e&9 1 ¢ BNEQ 4 3 NEQ yes, report error 
59 O0A0 C54 O2EB 1 MOVL Ye g6L VEC, COB(RS)ERZI.AD ; Get associated CDB 
OF 1 F1 1034 BNEQ $ 3; If NEQ, COB exits - claim it 
15 1 Fe 1035 BSBB sy CoB 3 Create’ anew COB 
11 30 3 F 1 § BLBC 4 ; If LBC then error 
52. 404A B FB 1 MOVZBL TPs jie X(R3),R 3; Restore trib address 
QOAO (542 59 pe FC (1 8 OVL uCBSL WE be thsycR2 ; Store CDB address in UCB 
28 ASB 02 1 30$: MOVW TResa. CHAN(R3) = 3 Save channel index in UCB 
O0EO €542 0 1040 Mitt “VEC NCHANERS) CR2] ; 
05 H : <3 40$: RSB 3; Done 
A 104 
A 1044 NEW_CDB: ; Create new COB 
51 0060 8F 3C¢ A 1045 MOVZWL OPS _£, LENGTH AN ; Get _bise of CDB 
0D ees rt PUSHL 3; Save reg 
00000000'°GF 1 11 104 JSB G*EXESALONONPAGED s Allocate the CDB 
53 BED 17 1 rt POPL 3 ; Restore reg 
40 50 € \A : 4 BLBC RO,100$ : Br if error 
1p i : Initialize CB 
9 5 00 1 1 ‘ MOVL = R2, RO : Copy CbB address 
5 As 5 3 1054 MOVL R2, IRP$L_CDB(R3) : Save it 
2 08 A E 4 5 MOVAB CDB_W_SIZE(R2),R2 : Setup ptr to init CDB 
1 $ ASSUME CDOB_B_TYPE EQ $3c0B US Ize 
1 8 ASSUME CDB_B_FIPL EQ 1+CDB_B_TYPE 
105 ASSUME CBI. FRE EQ 1+CDB"B-F IPL 
1060 ASSUME CDB"L“FR EQ 4+CDB-1 EPC 
SUME CDB"L-FR4 EQ 4*CDB“L“FR 
oo ws 1 g MOVW =- RT, (R2)* : COB_W_SIZE 
82 17 BF OB 8 1064 move #<CoB CF IPLaB>+DYNSC NET,(R2)¢ ; CDBTB-TYPE and COB_B_F IPL 
ee - 1065 ADDL #34 ,R ; Advanée passed CDB_L_FR4 
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2 1118 -SBTTL SETMODE_CTRL, Perform setmode FDT operation on controller 
—E 1114 ;4¢4 
: 1118 ; SETMODE_CTRL - Perform setmode FDT operation on controller 
— 1117; 
aH W118 ; This routine performs the SETMODE FDT setup for the controller. 
SE 1120: Inputs: R3 = IRP address 
SE W121 3 R4 = PCB address 
5E 11 § : R5 = UCB address 
2e 1 ? 3 R7 = IRP function word 
8 ze 13 2 : Outputs: RO = status of setmode request 
O33 1127 : R3-R5 are preserved. 
O8E 1159 | 
Beee 1130 SETMODE_CTRL: ; Perform setmode on controller 
05 57 O07 €)1 8 2 1} 1 BBC S*#10$V_SHUTDOWN,R7,10$ ; Br if not shutdown request 
O36 He : Shutdown modifier specified 
0300 30 0362 1135 8SBW = CAN_DEV : Shutdown the device 
3F 11 O303 1138 108 BRB 50$ 3; Finish the Q10 with success 
tae 1138 : Startup Line modifier specified or no modifier 
EO 0367 1140 BBS #UCB$V_CN_INITED,=- ; Br if controller up already 
31 68 AS 0369 1141 UCBSWIDEVSTS(R55S ,40$ 
036C 110g 3 : 
baec 1107 ; Validate P2 
51 FDO3A CF 9E Beek 1145 MOVAB LINE PRM_TABLE ,R1 3; Address of verif table 
59 55 0 83 1 1146 MOV 3; Address of current param's 
52. 68 AS 3C C0374 «1147 MOVZWL uchsu DEVSTS(RS) ,R2 : Status fla lags 
061E 30 0378 1148 BSBW IDATE_P2 : Validate P2 buff 
28 50—séE tA 1133 BLBC NOL 70S : If LBC, return RO, rt in 10SB 
O37 1131 : Setup Maximum receive buffers 
51 0451 8F 36 O37 1138 MOVZ2WL #NMASC_PCLI_BFN,R1 : Set to find MAX RCV 
0686 0 1154 BSBW UNPACK~P2_B0F ; In P2 buffer 
05 23 +4 g 1132 BLBC + Ba: ; Br if not found 
OO9F C5 0 ; 1128 30s MOVB R2,UCBSB_RCV_CNT(R5) : Initialize nuaber of RCV 
: 1138 : : Setup Blocksize 
51 OAFI gf 36 5 1160 MOVZWL #NMASC e-peeo BUS,R1 : Get buffer size 
0676 116 BSBW ver :; From P2 buffer 
04 28 E9 9 1198 BLBC R048 : Br if not found 
42 AS Ma 1187 608 MOVW R2,UCBSW_DEVBUFS1Z2(R5) ; and in UCB 
90 1165 " -$ Device initialized - then do a LISTEN if 10$V_STARTUP 
05 $7 66 1 90 1169 ac S*#10$V_STARTUP,R7,50$ : Finish tv if not starting 
Cc 10 Al 1168 BSBB LISTEN ; Do a 
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06 5 g A3 BLBC RO,100$ : if LBC then failed 

FFI 1 48 ; $: BRW FINISH SUC 3: Finish = SS$_NORMAL for I0SB 

4 1 A $: BRW FINISH-REQ ; Finish = RO,R1 for I0SB 

FFOC 1 aC 100$:  BRW ABORT_REQ ; Abort the 1/0 request 

AF LISTEN 


Do all the wonderful SCS magic needed to start up. The buffer 
created on the stack is pointed to by R7 in case the CONFIG SYS 
macro is updated someday to modify SP as it pushes arguements. 


00000070 SBO_LNG = SBOSC_LENGTH + 32 SBO Length plus random amount 
of padding merely for merely 


hysterical purposes. 


59 53 00 MOVL R3,R9 ; Save 
SE 00000070 BF C2 SUBL § #SBO_LNG,SP : Create buffer on stack 
57 SE 00 MOVL SP,R7 ; Preserve value of buffer 
CONF IG_SY 5g 0s00S_SVSTERIO, $7) ; Get our system block 
08 50 «EY BLBC : If LBC, not ready yet 
3C A? «90 MOVB § SBO$B_RSTATION1(R7),- : Get our port number 
009E C5 CB$B-CN_PORT(RS) : 
07 «(18 BGEQ 1 :; If LSS then not ready yet 
50 0084 of 7 2008: ta $552_SEVOFFLINE .RO 3 goyres offline error (no PA) 
3 x 
56 14 Al 00 210$: MOVL SBSL_PBCONNX(R1) ,R6 ; Get path block 
56 2C AB 00 MOVL PBSL_PDT(R6), ; Pick up POT 
0084 cS 56 00 R6,UCBSL_PDT(RS) ; Save in UCB 


Setup a LISTEN 


0D 50 =s«E9 BLBC RQ. 2208 : If LBC then error 
0090 cS) =653—s«io MOVL R3,UCBSL_LIS_CDT(RS) : Save Listen CDT 
5C A3 55 D0 MOVL R5,CDT$L_AUXSTRUC(R3) > Set addr of UCB into CDT 
68 a5 (O01) AB BISW  #UCBSM_CR_INITED,UCBSW_DEVSTS(R5SS ; Indicate device inited 
5E 00009970 8F co 2208: ADDL #SBO_LNG,SP ; Restore stack 
5 59 ~=—00 MOVL R9,R3 ; Restore IRP addr 
05 RSB 
LIS_ERR: ; Error on LISTEN COT 
DISCONNECT ; Put it back to Listen 
05 RSB 3; Leave 
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Sense Mode 1/0 operation 5-SEP-19 0:11: DRIVER. SRCICNDRIVER.MAR; 1 
-SBTTL SENSEMODE_FDT, Sense Mode I/0 operation FDT routine 


"oO 


++ 

SENSEMODE _FDT = Sense Mode FDOT routine 
This routine returns information to the caller about the configuration 
and status of the CI device. Depending on the function modifier, 
either the device characteristics or error counters contents are returned. 
The Q10 parameters for SENSEMODE are: 


P2 = optional address of buffer descriptor for extended characteristics 


Inputs: R3 = IRP address 

R4 = PCB address 

R5 = UCB address 

Rg = CCB address 

R7 = Function code 

AP = Address of first function-dependent Q10 parameter 
Outputs: RO = status return of sensemode request 


R3-R5 are preserved. 


é 


04 ENSE_TABLE: ; Setup list of offset to 
O3A2 04 -WORD SENSE_TABLE = TRIB_PRM_TABLE ; parameter tables with using 
034A 0428 » WORD SENSE_TABLE = TRIB_CNT_TABLE 3 the following 2 bit index: 
037C 042A -WORD SENSE-TABLE = LINE-PRM-TABLE  ; 
0338 042C -WORD SENSE_TABLE = LINE_CNT_TABLE : bit 0 set => counters 
Be ; 3 bit 1 set => non-trib 
42E SENSEMODE_FOT: ; Sensemode FDOT 1/0 processing 
00000080 3 ; SENSE_C_BUF = 128 
042E ASSUME TRIB_PRM_NUM*6 LE SENSE_C_BUF ; Make sure buffer can hold all 
042E ASSUME LINE_PRM_NUM*6 LE SENSE_C_BUF ; info for all cases 
42E ASSUME TRIB_CNT_NUM*6 LE SENSE_C_BUF 
rt : ASSUME LINE_CNT_NUM*6 LE SENSE_C_BUF 
" : > Check user buffer. Get system buffer. Setup IRP 
3A A3 0080 8F 80 4 ‘ MOVW  #SENSE _C_BUF,IRPSL_I0ST1+2(R3) ; Setup buff size needed 
O0A2 4 BSBW GET_CHAR“RBUf : Setup read’ buff for 1OPOST 
437 3 > no return on error 
57 90 a3 3C 60437 MOVZWL IRPSW_FUNC(R3) ,R7 : Get full function code. 
04 A2 3C Ad D0 04 MOVL  IRPSL~10ST2(R3) ,4(R2) : Store user buffer virt addr 
44 : in standard place in buffer 
52 62 00 + MOVL (R2),R2 3; Get pointer to data area 
rr : Locate parameter/counter table 
4 MOVE Init SENSE TABLE index 


#3,R6 
MOVL  #COUNT_C_ENTRY-2,R8 


C R Bias COUNTER table entry size 
BBS #10 V_RD“COUNT.R?, 108 ‘ 


If BS, “read counter’’ request 
Erase ‘read counter” bit 
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#10$ Mab: FOUN 
Ha CTRL,R7,20$ 


180s, 
gens BLeChed. RO 


ROWRG 


buffer with requested information 


(R6)+,R1 : 
#10$V_RD_COUNT,R7,40$ 3 
#*C<PRM_A_TYPE> 


#0F FV "OACUE. #OFF_S S_VALUE,(R6), ri 
cv “WIDTH, #OFF-S-WIDTH, (RO), RO 


(R2)+ 
#10$v_ y CER. COUNT, R7,50$ 
#9 89,80, TR 4) 


SERSE_C 


Rast SVAPTE(R3) ,R2 
Ref F 


#SS$_NORMAL RPSL_10ST1(R3) 
RP so_ BCNT(R 


#sSss but FEnove 18 , IRP$L_10ST1(R3) 
[apse 
Re. IR TRPSL LOsts¢ on3) 
R su" 108 BCNT(R3) 
Nitty LOSTI(RS). RO 
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PARAM table entry size 
or 30'k £ garbage modifier 
use UCB source 
4g’ *, "tea We a tributary 
rase ‘‘non-tributary'’ flag 


vm 
VE 
ias 
le 
7 5 
f 


; : Vets ate 4 a use €DB source 


f LBC then CDB not found 
; Get eiteer to 4s oad table 
ase 


; Get address of 
; Calculate table address 


t parameter i.d. 
EQL, at end of table 
BS then counter i.d. 

| 


_— 7a 


lse param i.d., clear junk 
3; Get source offset 

Get source width 

14 EQL, ignore this param 
Calculate source address 
Enter parameter i.d. 

Enter parameter value 

If BC, don't clear source 
Clear counter 

Advance to next entry 

Loop 


Calculate bytes moved 
ction buffer large enough ? 
Assume eucce 

User buffer big enough ? 

If GEQU then yes 

Show warning 

Shrink xfer size 

Move xfer size to I0SB image 
getup xfer size for IOPOST 
Set length/status 

Leave setting RO in I0SB 


We've corrupted pool 
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» 66 
20 04 A 
CAS 5 
06 aA A3 
00000000 ° GF 
00000000° 
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-CHAR_RBUF = Get P 
<CHAR_WBUF = Get P 


$s routine saves the address of P2 buffer 
The 43 SOON etéress is saved in IRPSL_IOST 


GET _CHAR_RBUF : 
GET_CHAR_WBUF : 
CLROQ 
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“* SEP=1984 Oh: 19:87 
characteristics b 5-SEP-1984 00:11:06 


-SBTTL GET_CHAR_RBUF, Get P2 characteristics buffer for read 
-SBTTL GETICHAR-WBUF, Get P2 characteristics buffer for write 


R3 = IRP address 
RG = PCB address 
RS = UCB address 
RO 


= wh 
R1 = User buffer size 
R3-R5 are preserved. 


#IRPSM_FUNC, IRPSW_STS(R3) 


R 

PRcAP). R2 

#042 IRP$B_RMOD(R3) RO 
te rs (Re), 50$7MODE=RO 


A25"R 
RO. IRPSL_10ST2(R3) 


0$ 
#IRPSV se sree STS(R3),208 
G*EXESREA 
G*EXESURITECHK 


#IRPSV FUNC, RPS STS(R3) ,40$ 
IRPSL_TOST1#2<(R5) 7R1 


G 
UCBSB_FIPL(RS) 


#S§$_ACCVIO,RO 
ABORT_REQ 


AX/VMS Macro V04-00 Page 3} 
DRIVER. SRCICNDRIVER.MAR; 1 (24) 


characteristics buffer for read 
characteristics buffer for write 


r later use by the driver. 
of the IRP, and the size 


; Get P2 char buffer for ‘read’ 
; Mark IRP for “‘read'’ 

; Get P2 char buffer for" ‘write’ 
; Setup null user wt fer 

. ost. peerese Pe P 


desc 
L, no P uae specified 


; ay aiheue 


Br if no Keay eccoue 


; Get buffer length in bytes 


Get buffer address 


; Save it for later 
; Null user buf fer ? 


If EQL yes, don't probe 

Set return address 

If BC then ‘write’ 

Check user buffer, setup IRP 
Check user buffer, setup IRP 
- no return. on error 

If BC then ‘write’ 

Get required buffer size 


Okay if LBS 
Set error status 
Abort the 1/0 request 
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V 
JR Start tributary routine “SEP=1 DRIVER.S REIC CNDRIVER.MAR; 1 
} ee -SBTTL START_TRIB, Start tributary routine 
137 i+ 
; ! i i : START TRIB = Start tributary routine 
£ 137% 
—E 1575 ; This routine is called when a tributary is to be established and started. 
; : 1 3; The control parameters are initialized also. 
Se— 1 8 : Inputs: a = IRP address 
S2—E 1379; RS = UCB address 
é ; : ? 3 R9 = CDB address 
3g qi IPL = FIPL. 
: ; ! $3 : Outputs: RS is preserved. 
Soe 1386 
5 : 3 START TRIB: : Start tributary 
5 : ' a : Setup number of receive buffers 
51 0479 8F Hs é 3 1 3 MOVZWL #NMASC_PCCI_MRB,R1 3; Get param i.d. 
960 3 5 139 BSBW UNPACK_P2_BOF + Get param value 
05 5 3 5 $ 1394 BLBS R : If LBS then param was there 
52 009F ‘ A 0539 1395 MOVZBL UCB$B_RCV_CNT(RS) .R2 : Else, get default 
09 ; 91 O53E 1396 208: CMPB R2,#REFMIN ; Are there enough buffers to 
1A 0541 139 BGTRU 3 : reduce datagram loss ? 
2g 9 pO 0543 139 MOVL coornine : it nat. do user a favor 
5 1F 01 348 1399 30S: CMPL #RBEMAX,R 3; Too many ? 
03 1A 54 1400 BGTRU 40% 3 19 GTRU then no 
52 IF DO 0548 1401 MOVL svornee Re 3; Use safer minimum 
*¢ Ag 3§ 90 236 1308 40$: MOVB B_6_R RCV_CNT(R9) ; Setup receive pool accounting 
D Ad 90 22 140 MOVB 4 Rit “B_RCV_FQ(R9) 3 List starts out full 
320 1208 : Init COB state 
556 14 : : 
48 A3 30414150 BF 00 336 1407 MOVL #*A/PAAO/, IRP$B_INDEX+8(R3) 3; Set to connect over local 
3; po 
3F Ad 03 90 055 1209 MOVB #COB_C_LSTN,CDB_B_STA(R9) 3 Po B “"Listen’’ state 
009e C 91 6 1410 CMPB UCB$8_CN_PORT(RS) -- ; Compare our address to 
4 a 66 1411 hee INBERCRS) : remote's addre oss 
1F 8 116 BLSSU ; If LSSU, st ? Listen" 
Ge 1A A 161 BGTRU 50$ ; If GTRU, n bite connect 
2 04 6C 1414 CLAL R ; Else wer re talking to 
—E 1415 3; ourselves -- Ree rcv buffers 
4 11 $f 1e18 BRB 60$ ; CONNECT from STN’ state 
7 AG 2 4 1417 50$: MOVB ac DB_C_ CONN -COB_B_STA(RY) i; Else, go to‘ ‘gonnect state 
14 3A Ad Ag eS \ei8 60$: BBSS #CDB_V_CONN COB W-STS(R9),2008 ; andisere e waiting return from 
55 ppd 0579 1420 PUSHL RS : Save UCB address 
55 9 ? 7B 1421 MOVL nS as 3; Use COB for CONNECT context 
11 7E 14 § 6S8B on 3 Post connect request to SCS 
04 3A AD i ai | i 1 4 Bact f DB_V_CONN,C w_STS(R9),100$ : regen oo Ae oop 
e Py ae ¢c e 
3 Ag $ pO 05 1425 MOVL COB . ati) of¢ Rey : ; Set pointer to open Col 


| 
| 
| 
| 


level user (NETACP) would consume too much time trying to restart 
the circuit. This is because the Cl, unlike other devices, will 
return anogtotery if the partner is not ready on a CONN cf 
ettongt For all other devices, the connect remains pending 
indef nitely. 


Therefore, in order to save CPU cycles. simply return and allow the 
O$M_STARTUP $QI10 to hang indefinitely. This forces NETACP to 
nitTate the Subsequent Cleanup via a SCANCEL, SDASSGN, or 
]1OSM_SHUTDOWN. This should be fixed someday to have CNDRIVER retry 
every 5 seconds or so without reporting an error. 


eee NOTE: This logic here has been retained in case it needs 
to be reactivated someday. However, it has been 
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vaya START_TRIB, Start tributary routine eet 8h 17 be DRIVER. SRCICNDRIVER.MAR; 1 . (38) 
05 C 1426 100$: RS ; 
. i § B Done | 
D 1428 2008: BUG_CHECK INCONSTATE, FATAL ; Bug if already set | 
50 30 A9 9A 1 14 9 CONN:  MOVZBL_ CDB_B_RCV_CNT(R9) RO ; Pick up rev buffer count | 
: 14 CONNECT - 3; Request a CONNECT 
4 14 § MSGADR = W*MSG FORK,=- ; Message address 
5 14 DGAOR = W*DG FORK,- 3 Psuedo interrupt routine 
39 1434 ERRADR = W*CORNN_ERR,- : Connect errors 
95 1435 RSYSID = 0,- 3; No remote system specified 
595 14 ‘ RSTADR = IRPSB_INDEX(R3),- ; Virtual circ to connect over 
23 14 RPRNAM = PROC_RAM,- : To whom we will speak 
9 14 3 LPRNAM = PROC_NAM,- é 
32 14 INITCR = #1,- ; 
Be 1440 INITDG = R2,- 3 
595 1441 CONDAT = CONN_DATA,=- ; Connect data 
4 1206 AUXSTR = (R5) 3; Auxiliary structure 
S(B 1444 : Control returns to caller's caller - the JMP G*EXESQIORETURN. 
5CB 1445 ; When the connection completes, the following is called as a fork 
ace 1708 3 process NOT necessarily in the context of process. 
O3¢8 1448 : RO = Status code 
5CB 144 : R1 = Reject reason if status = reject 
5CB 1450 3 R2 ==> ACCEPT_REQ ase if status = success 
5CB 1451 ; R3 ==> Connection CD 
5¢B8 1036 $ R4 ==> PDT 
O8ce 1484 sedi ape 
5CB 1455 CLRBIT #CDB_V_CONN,CDB_W_STS(R5) ; No longer awaiting CONN return 
OE 5 3 209 1626 BLBC R 3; If LBS then error 
00F 9 503 145 BSBW © CHECK_REMOTE : Check remote’s connect info 
> eS 208 1458 BNEQ 10$ : If NEQ, can't talk to remote 
0088 31 0508 1459 BRW CONN_FIN ; Else okay, complete setup 
5DB 1460 10$: DISCONNECT ; Break the connection 
54 AS 4 4 1469 208: CLRL CDB_L_CDT(RS) ; Forget about CDT, if any 
5E4 14635 CONN_ABO 
5SE4 1464 * 
1092 CONNECT or ACCEPT failed. 
1467 If we were to return an error immediately every time, the higher 
1469 
1470 
i 
1 
1474 
! 5 
ifs 
3 
128) 
1482 


OOO NNN NNO O 


Our name 
; Allow for messages 
Number of receive buffers 
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START_TRIB, Start slecers routine oe St} 8h: 49:85 DRIVER. SRCICNDRIVER.MAR; 1 . (38) 
4 1483 3 found that not returning an error iasediately can 
4 1484 s gause some confusion since it can delay a circuit 
4 1485 : nit oD pe. on for 3 minutes or so in some cases. 
46 14 § 3 In addition, the time seers 7 NETACP to continually 
4 14 : reinitialize the circuit has been found to be small 
2 1° 8 ; enough that it presents no real problem. 
4 14 : 
3a AS 4 1294 tsTw DB_W_STS(R5) 3: ALL quiet yet ? 
1 ° ES 143 BNEQ (BBs > 3 if nea jude wait 
50 SOAS 0 £9 149 MOVL COB : UCB(RS) ,RO : Get UCB address 
09 64 Ad 0 3 ED 1494 BBS #UCB$9_POWER UEBSU_STS(RO) 508 ; If BS, powerfial recovery 
5B A : F2 1495 INCB coe B_RSTCNT(RS) : Another restart attempt 
5B aS 603)—CO9 F 1436 BITB #3,COB_B_RSTCNT(RS) ; Is this the 4th phase ? 
F9 1497 ; BEQL «1008 : If EQL yes, wait. 
a 
54 55 8° SFB 1300 50$: MOVL R5,R4 3; Copy CDB address 
016D SFE 1 o1 BSBW 8 =_- ZAP_CDB : Report the error immediately 
05 0601 15 ; 100$: RSB 3 Wait the gio until contacted 
Be88 1387 3 by user via SCANCEL, etc 


are 
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LIS F 


/V 
OR 


1 


} 


oO 

w 

Ww 

ne 
—wW— 0-9 OF 


WOon—WO FO 


=u 
oo 
os 


05 


SFOOOOOMUMINOOCVCVCWMOv0 ro 


50 3C AS) 9A 
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MS DECnet-C1 s Driver 7 Eb 9 Oh: 19:87 
K, Listen action routine -SEP-1984 00:11:06 
-SBTTL LIS FORK, Listen action routine 


las 


when s 
to ACC 


REJECT: 


ACCEPT: 


Inputs: 


+ 
LIS_FORK = Listen action routine 


some other 
EPT or REJECT the connection. 


--> Listening 
R4 ==> 


IPL = FIPL 


LSTN 


3 REJECT the connection. 


RL RS 
MOVL  #SS$_NORMAL ,RO 
JECT 


RSB 


: ACCEPT the connection. 


hovzeL cB B_RCV_CNT(RS) RO 
MOVE  #COB_C_ACPT,CDB_B.STA 
SETBIT #CDB_VIACPT, ;CDB-W~STS 
ACCEPT 

wpeeroatt= 
W*CORN ERR, - 


R 
CONN_DATA,= 
(R5) 


- 
z 
—_ 
~ 
oom 
@ 
nhunnnun 


AUXSTR 


synchronously. In that case 
follow 09 is called as a fork 
of user's process. 


RO = Status 
R1 = ? 


Re ==> CONNECT owe 


AX/VMS 
DRIVER.S 


to us. 


v04-00 


acro P 5 
SRCICNDRIVER.MAR; 1 — (3a) 


This routine is entered as a fork process activated by the PADRIVER 
rocess has sent a CONNECT 


We can then decide 


Pick ucB from Listen CDT 

Get ot ¥ nov *s port 

Pick u 1) 

We don't "hoes one, reject 

Are we Listening on this trib 
f NEQ no, reject cemmact tan 

Process connect dat 

If NEQ then re. dEcnet SYSAP 


Forget about CDB 
Reject reason 
reject him - return to 


l 
Return to SCS (nop) 


Pick up rec buf coun 

inate state to‘ ‘Sccept' 

pore sete ACCEPT pend <a 
T the connection 

Rectan address 

Psuedo interrupt rtn 

Error address 

Allow for messages 

Receive buffers 


Accept data 
Auxiliary strucure (COB) 


Control returns to caller's caller if this request does not complete 
when the ACCEPT completes, the 
process NOT necessarily in the context 
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v04- LIS_FORK, Listen action routine §-3 sats ri Oat 86 DRIVER. SRCICNDRIVER.MAR; 1 _ (38), 
° 1 3 Re --> ACCEPT_RSP message 
3 R5 ==> CDT 
$ R4 ==> PDT 
é : RS ==> CDB 


ELRBIT #CDB_V_ACPT,CDB_W_STS(RS) ACCEPT no Longer pendin 
BLBC Ros a“ i 6 


13 5 If LBC then failed 
50 SOA MOVL  CDB_L_UCB(RS) RO et U 
$o A CMPB COTSB_RSTATION(R3) ,- Are we talking to ourselves? 
ie BNEQ YeRNC cena: If NEQ lete set 
no, complete se 
0094 C0 RS UCBSL. TWIN. CDT(ROD E\se setup win cor 
BRB CONN_F INT Finish processing without 
53 520 50S:  MOVL —R2, RB poly, Ee 
H 0 or register 
so 206c 8 #5§$_ REMRSRC REvECT reasen 


Set REJECT in progress 

Must REJECT on ACCEPT failure 

Return is to caller's caller 

- return here after a delay 
with RS pointing to COB 

Go to common code. 


VL 
V2WL % RO 

BIT #CDB-V_REJECT,CDB_W_STS(RS) 
RBIT #CDB_V_REJECT,CDB_W_STS(RS5) 


FESS 31 BRW —-CONN_ABO 


BUG_CHECK INCONSTATE,FATAL 


7M OWWOWMO 
-9 oom 
—-Oon —o6 


a Be 8 a a 2 a et 8 st 


MMI 


9.090000 0909 09 SI NINININI NIN NINO 
BUF WN —OODNAUNE WN OODNAUEW 
=z 
o 
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VoL O08 LIS_FORK, Listen action routine aad et BO;1h: 6 CORIVER. SRC REIC CNDRIVER.MAR; 1 = 3a) 
93 1 
4 1 3 
3 ! 3 CONNECT (or ACCEPT) succeded 
935 1 : 1 no status bits are set then enter the ‘'run’’ state and complete the 
93 1593; pending, OSM_STARTUP request. If any status bits are set <= which can 
93 1 3 3 appen we are talking to ourselves since we do both an ACCEPT and a 
4 ! 32 : CONNECT in that case -- then wait. 
93 1 $3 CONN_FIN: 
54 aS 53 00 24 ! 8 conn sine R3,CDOB_L_CDT(RS) 3; Set ptr to COT 
54 55 0 934 19 9 ~ MOVE R5,R4 : Copy CDT address 
B AG 4 Q69A 1 CLRB COB_B_RSTCNT(R4) 3 Init failed restart counter 
4 AG D4 069D 16 ¢ CLRL et ty Yd : Don't inhibit Ms oe ECT 
55 0 ad 00 AQ 16 MOVL CoB " UCB(R4) RS : Restore UCB nter 
64 AS_ 20 AS 1604 BiCw #$#UCBSA_POWER ,UCBSW_STS(R5) : Any po power tai * recovery is done 
SAAG OB AB 1605 TSTw © COB_W_STS(R4S ; ? 
iD 1 6AB 1 $ BNEQ 40 3 If N * wait 
53 3004 OD AD 1 MOVL 0B. L_SETMODE(R4) ,R3 : Get SETMODE IRP 
18 #1 681 16 | BEQL 0 5 EQL then none 
30 AS) «= 4S C6BS) S16 CLAL CDB_L_SETMODE (R4) : Detach IRP from COB 
10 90 A3 96 1 6 1610 BBC #10Sv- otaatue IRP$W_FUNC(R3), 508; If BC then wrong IRP 
FAG 01 90 0688 1611 VB #cDB_ C0 ,COB_B_STA(R4) iu date current state | 
6BF 1ol¢ SETBIT coB_V NOOB “W_STS(R4) 3 Allow data meseoge traffic 
50 01 3 6C4 161 MOVZWL ase =V-RUN RO ~ ; Setup status 
O21A 3 6C7 1614 ie BBW SUC_TRB_IOPOST : Post IRP with “success” 
6CB 1616 ; | 
rth 13 508: BUG_CHECK INCONSTATE,FATAL 
re 1818 CHECK_REMOTE: 3; Check remote connect data 
6CF 1621 : 
OCF 16 § : ,0-15(R2) Contain our process name (who remote is connecting to) 
6cF 16 : 16-31(R2) Contain remote’s process name 
er 1 : : 32-47(R2) Contain connect data | 
1D 8B Cf 1696 PUSHR #*M<RO,R2,R3,R4> ; Save some registers 
¢ dO 601 16 3 VL R2,R4 + Make stable ase pointer 
Hh AS D4 16 MOVW #OLD_C PROT, CDB_W_REMPROT(RS) ; Assume remote is o\¢ protocol 
20 AG sOFAIS CF 2 608 1650 cMPC3) #PROC_C_NAM, *PROC RAM, 32(R4) : Check the connect data 
SDF 1651 shor $ 3; If EQL then old style 
58 AS) 20 AG 8 6E1 1 § MOVW (R4),COB_W_REMPROT(RS) 3; Pickup version + system id's 
10 a6 6 FAOS CFO O06 E6 ; 10$:  CMPC3 #PROC_C_NAM,PROC_NAM, 16(R4 : Check the connect proc nam 
1D BA BED 1635 POPR #*M<RO,R2,.R3,R4> : Restore regs (but save CC's) 
5 oer 19 § RSB : Return condition codes 
FO (1638 ; 
5F 1 8 i : 
oF ' rt : Error after connection established - VC disconnect most Likely. 
AF 1 tg 3 : If the COT is the UCBSL_ TWIN, eee then simply $0 a 9 SCONNECT. This CDOT is 
bFO 1645 ; used for receives on cofnes ts to ourselves. SCS will call us again for the 
bF 1644 ; other half of that connection with the local CDB's CDT == at that time, as 
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= VAX/VMS DECnet-C1 Clas 


CANCEL, 


o-oo —-@0-comMws s 
VuIP> Of PN—OCOO 


COOOCOCOCOSOOSCOOCOCOSOSCOCOCOOCOOOOOOOOCOOOOOCOOOOOO 
SNS NSS 


WWUIWONONONONIN S = = BQO OO DOOOOOCOOOOOOOOOOOO 


MEM FRDD O LOM WD OUP M MM MMMMMMMmMmMmmmmmmemrmrnenicricriery 


Cancel 1/0 routine 


ee 


SNS NIO OOO 


a a a a a a ad 
PARA AAA AAA AA AA AAA AAAA AAA AAA AAA O SAAS 


woowowowvowowowovono 


OWDNOA MASA $$ SO OD NAME WIN $0 ODNOA UE WS  OOONOUM 


10$: 
20S: 


» SBTTL 


nputs: 


N 12 
Driver 


CANCEL, 


Re = channel number 
RS 
RB 
IPL = FIPL 

RO-R3 are destroyed. 


= PCB address 
= UCB address 


#*M<R4 RID 


ne 0 CHAN 

RO. 208 

. #1 
CDB,B_1RB_ADDR(RQ? 


UCBSW" VEC" CHAN(R 
ZAP_CBB_R9 


aAM<R 
UCBSW 
CAN_DE 


RO 
tro) 


R9> 
REFC(RS) 


= current IRP address 


= Cancel reason code: 


"$$EP=1986 80:11:60 


Cancel 1/0 routine 


AX/VMS r 
DRIVER. SRCICNORI 


++ 
CANCEL, Cancels an 1/0 operation in progress 


This routine cancels all 1/0 on the tributary. 


0 => SCANCEL; 


Cancel an 1/0 operation 
Save registers 


Copy channel number 
Translate channel 


trib address 
Zero channel entry 
Clear all CDB 1/0 


Restore registers 
Last reference to unit? 


If EQL yes, shutdown the device 


Return to caller 


Macro v04-00 Page 33 
RIVER.MAR; 1 (29) 


1 => SDASSGN 


Oe= O88 CAN_DEV, 


3 20$: 
38 
F3 53 30$: 
53 0090 CS 00 
OF 13 
0090 CS D4 
54 0084 CS 00 


40$: 
FFCF 8F AA 
64 AS 


38 ~=6BA 
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Bi Si Bt tt dt te te te de ee ee 
PEARED AAD MMIII BB EE AAAI ANNAN ANIA AN NAN AAAA AANA 
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AMIE O ODNAU EWN 9 OD NAME WIN O OONOA UE WWI OOONOAUE Win 
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53 OF 00 
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B 13 
= VAX/VMS DECnet-C] Class Driver 1 
Device shutdown routine 


p++ 
; CANDEV = 


=SEP=1984 
~SBTTL CAN_DEV, 


Device shutdown routine 


; Inputs: Es IRP address 

: R5 = UCB address 

; IPL = FIPL 

: Outputs: RO-R2 are clobbered. 
tAN _DEV: 


BBCC #UCBSV_CN INITED,- 
UCBSW_BEVSTS(R5S) ,50$ 


PUSHR DARCRS, R4,R5> 
: Zap each poner: 
MOVL  #MAX_TRB-1,R3 
MOVL ucesC VEC _CDB(RS)£R3I,R4 
BEQL 308 
8B ZAP_CDB 


BS 

SOBGEQ R3,20$ 

; Remove our Listener 

MOVL  UCBSL_LIS_CDT(R5),.R3 

BEQL 40$ 

CLRL UCBSL_LIS_CDT(R5) 
MOVL UCBSL_PDTTRS) ,R4 
DISCONNECT 

: Clean up the UCB 


B1cw2 
UCBSW_STSTRS) 


POPR #*M<R3,R4,R5> 
RSB 


1:19:27 
mets Bhi 13 86 
Device shutdown routine 


#*C<UCBSM Oe ING FUCESA POWER>,=- 


AX/VMS p14 cro V04-00 
DRIVER.SR 


This routine is called to shutdown the CI device. 
zapped so that they wili eventually run-down and be deleted. 


Cie CNDRIVER.MAR; 1 


ALL tributaries are 


Shutdown the device 
Br if dev not inited 


Loop counter (zero indexed) 
Get next COB 

Br if none : 
Cancel all 1/0 on trib 
Loop 


ae up Listening CDT 

None 

and clear any trace 
PDT address, lust in case 
Clear our name out of table 


Reset status 


Restore registers 
Return 


Pa 40 | 
9° (30), 
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54559 


54 AG 

OE 

34 AG 
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Inputs: 


Outputs: 


ZAP_CDB 
ZAP~CDB_R9 


AP_CDB_R9: 
ZAP_CDB: 
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t-CI Class Driver 16-SEP-19 
own the tributary 


~SBTTL ZAP_CDB, 


1) Disconnect the Virtual Circuit 
) Cancel all outstanding 1/0, abort all IRP, deallocate rcv'd buffers. 
) Idle the COB. 


RQ = 

R5 = UCB addr 
R4 = 

IPL = FIPL 


RO-R1 are destroyed. 


MOVL R9,R4 


AX/VMS Mac 


. 
=SEP-19 DRIVER. SRCJCNDRIVER.MAR; 1 


Shutdown the tributary 


- Shutdown the tributary 
- Shutdown the tributary, get CDB address from R9 


o V04-00 P 
see 


This routine is called to abort all I/0 pending for this tributary. 


COB address (ZAP_CDB_R9 only, else not used) 
ess 
COB address (ZAP_CDB only, else garbage) 


; Setup proper CDB pointer 


If a DISCONNECT is issued on a connection that already has a 
DISCONNECT es SCS thinks that something is wrong the port 


and disconnects a 


this channel. 


TSTL © CDB_L_CDT(R4) 
BEQL $ 
SUBL3 CDB_L_ABSTIME(R4) 


CMPL 
BLSSU 38 
PUSHR #*M<R2,R3,R4,R5> 


G*ERESGL_ABSTIM,RO 
RO, #10 


BSBB 5$ 


POPR #*°M<R2,R3,R4,R5> 


RSB 


make sure SCS w 


circuits usin 
we do not issue a second DISCONNE 
the last one was issued. 


Therefore, make sure 


for at least {0 seconds after 
That should be enough time for normally 
functioning circuits to complete a DISCONNECT dialogue. | 
DISCONNECT is still pending after 10 seconds, its gresediy okay 
to try it again in order to allow the user to run-down al 


f the 
1/0 on 


Any COT connected ? 

If EQL, no DISCONNECT needed 
Get seconds since last 
DISCONNECT 

At least 10 seconds? 

If LSSU can’t DISCONNECT 


Save regs 

Use subr call so that SCS‘s 
DISCONNECT code can return to 
a caller's caller 

Restore regs 

Done 


DISCONNECT aor return to our caller before returning here since SCS 
n 


has to enter 
stack must be clear. 


to a dialogue with the remote node. Therefore, the 


FORK Sanodiayely p*ter returning free the DISCONNECT in order to 


l return all Xmt 


RPs it knows about before we 


PPPrrrrrryrrervreT vo 
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= VAX/VMS DECne 197 3b = 1386 PRE EH AX/VMS Macro V04-00 Page 42 
ZAP_CDB, Shutdown the tributary -SEP-1984 00:11:06 CDORIVER.SRCICNDRIVER.MAR; 1 
7 1805 3; return the ones ghag are left. This is not usually necessary since 
7 1 § : in most cases SC$ will queue the DISCONNECT completion to the end of 
7 1 ; its own fork queue after all Xmt completion notifications have been 
4 ! 3 ; queued. 
7 1810 ; If COB_LV_DISC is already set, then there is a DISCONNECT or FORK 
7 1811 ; already Tn progress. Do the DISCONNECT ogete in case SCS is stuck, 
7 1 \ ; but simply return since the previous DISC NNECT will complete and 
4 ! 17 ; the processing will continue from there. 
$7 1815 CLRBIT #CDB V RUN, CDB_W_STS(R4) ; No longer in RUN state 
= D 7 1 1 MOVL : Save CDB pointer over call 
53°54 A5 DO 0790 181 MOVL CDB_L_CDT(R5),R3 : Pick up CDT address 
66 1 794 1818 BNEQ :; If NEQ then CDT was there 
25 3A AS) (0 f 0796 1819 BBCS  #CDB_V_DISC,CDB_W_STS(R5),30$ : FORK to continue 
5 3738 } 9 RSB ; Return if already FORKing 
54 10 Ads 00 a79t 1 § 10$ MOVL CDOTSL_PDT(R3) ,R4 ; Pick up PDT address 
34 AS _00000000' GF DO O7Ad 1 MOVL  § G*EXESGL_ABSTIM,CDB_L_ABSTIME(RSS ; Save DISCONNECT start time 
OA 3A AS O03 ES O7AB 1824 BBCS #CDB_V_DISC,CDB_W_STSTR5),20$ ; Show we are disconnecting 
Q7AD 1825 DISCONNECT #0 : Tell SCS to do it again 
05 3786 ! § $B ; Done 
th t4 1828 gps! DISCONNECT #0 3; Do it 
00000000'GF 16 O7CO 1829 30$: JSB G*EXESFORK 3 FORK to synchronize cleanup 
4 55 00 O7C6 18350 MOVL R ; Recover CDB address 
55° 50 a6 DO 07C9 1831 MOVL COB _L_UCB(R4) RS : Recover UCB address 
07¢D 1832 SETIPL UCBSB-FIPL(RSS : Sync with UC 
0701 133 CLRBIT #COB_0_DISC,CDB_W_STS(R4) ; Show we are back 
04 10 O7D6 1834 BSBB 40$ 3; Finish processing 
0708 1835 SETIPL #CDB_C_FIPL ; Restore IPL 
05 0708 1 $$ RSB 
ODE 1838 40s 
Ore ' 33 3; Complete pending I0$_SETMODE, if any 
54 AS =D4 «(07DC 1824 CLRL COB_L_CDT(R4) ; Get rid of any trace 
53 30 A4 OD 70F 1 4g MOVL CDB_L_SETMODE (R4) ,R3 3; Recover IRP 
oe | at 184 BEQL 50$ ; None there 
30 A4 4 O7E 1844 CLRL COB_L_SETMODE (R4) 3 Remove it from the CDB 
50.01 D O7E8 1845 mova $*#5S$_NORMAL ,RO ; Assume IO$V_SHUTDOWN 
09 20 AS 07 1 7€B 1 *$ BBC #10$V SHUTDOWN, IRPSW_FUNC(R3) ,60$ ; If BC then IO$V_STARTUP 
0 O7FO 184 BSBW =-_:« LOPOST ; Send IRP to I0POST 
FES 1849 sos 
i ! 29 3: Complete all Receive IRP's 
53 2084 OF O7F3 185 REMQUE @CDB_Q_RCV_IRP(R4) ,R3 ; Get next RCV IRP 
0S 10 O7F7? 185 BV : If VS then none 
00E3 30 O7F9 1854 60S: BSBW BBORT_IRP_POST ; Abort the 1/0 request 
F5 3611 «#O7FC «(1855 BRB 50$ 3; Get next entry 
HE TE os 
oe ' 28 3 Deallocate all Receive buffers 
50 28 84 OF 7rE 1860 REMQUE @CDB_Q_RCV_MSG(R4),RO ; Get next buffer 
4 1D 0802 1861 BVS 80$ ; If VS then empty 


‘os 


o 
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| CNDRIVER = VAX/VMS DECnet-CIl Class Driver 1 mi eet yi SB aE AX/VMS Macro V04-00 Page 43 
“Vos ZAP_CDB, Shutdown the tributary “SEP=1984 00:11:06 CORIVER.SRCICNDRIVER.MAR;:1 (31) 
3F 10 4 1 63 Bo98 DEALLMEM : Get rid of it 
| F6 Ss 1 ! 7 BRB $ ; Get next entry 
1865 80$: ; 
| ! $6 3; Complete all Transmit IPR's 
53 18 B84 OOF 1 68 REMQUE @CDB_Q_XMT_IRP(R4),R3 : Get next IRP 
05 1D Poy $ BV ; If VS then none 
aa 30 ; 1870 BSBw ABORT_IRP_POST ; Abort the 1/0 request 
F 11 11. «1871 BRB 80$ ; Loop 
131 re 
13 1873 90$ ; 
; ! a : Idle the CDdB 
3F AG) 600) ss«90s«O0813—:1876 MOVB #CDB_C_IDLE,CDB_B_STA(R4) : Reinit CDB state 
0 O88 1878 sme 
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it of & Sasep-19be bo:1):06 


AX/VMS Macro v04-00 Page 
DRIVER. SRCICNDRIVER.MAR; 1 


MSG_FORK, Fork process for receipt of Seq Messages 


3o¢ 
; MSG_FORK = Process received MSG 


: Inputs: 

: R1 = 
3 R2 ==> 
; R35 ==> 
: R4 ==> 
; IPL = 
: Outputs: 
MSG_FO 


Bytes send/received 
arene of user data 


POT 
FIPL 


RK: 
DEALLOC_MSG_BUF _REG 
RSB 


i; Deallocate the message buffer 


Av 
(32) 


Ce ae a ee 


RS a eeepc p aad | tend pale tae ee { 


CNDRIVER = VAX/VMS DECnet-Cl Class Driver SEP=1984 61:19: AX/VMS Macro V04-00 Page 45 ‘ 
a DG_FORK, Fork process for receipt of DG ate 60; 711: ‘66 DRIVER. SRCICNDRIVER.MAR; 1 . H) | 


-SBTTL DG FORK, Fork process for receipt of DG 


R2 ==> if of user data 
5D 


R5 ==> 
R4 ==> | 
IPL = FIPL 
Outputs 
G_FORK: 
54 5C A3 MOVL CDTSL_AUXSTRUC(R3) ,R4 ; Pick up tage > to COB 
20 BEQL MPTY Closed” CDB, discard 
53 28 01 SUBL3) = #1, R2,R3 Make a biased co copy of ase at 
5220 SUsu—(éi#3;2 RO Reset R2 to head of PPD but fer 
55° 08 A2 CVTWL «© B(RO) RS Get offset to CXB header 
F BGEQ $ If GEQ then bu 


ADDL R5,R2 Reset R2 to head of CXB buffer 


a 
o 
- 
— 
z 

o 
c 


wee a to next byte 


R3 
CMPB #-1,(R3) Pad byt 
0G 


w 

~ 

mo 

w 
—9 $090 7 WOOO 
ENN A OONMTUWWO 


Sete Se Se Ge Ge Se Ge Se Se Se Se & 


NOME WN 9 OD NA UEWIN 9 ODN NEU OOD NAUIE UP 
+ 


OOQGOOCOOGOOOOCOCOCOOOOOOOOOS 


BREE EEE & FAA AI PONONIPONIPONININD 2 3 SS BOO 


ee et ee ee ee ee ee a a a a dd od 
WOOO DODODOVOWOOOO OVO DOOD VOODOO OOOOOOVDODOOVDOO OOOO OOOO ODODOOOODOOOOOOOOOODO 


: Inputs 
: RO = 9 - Received a DG 

; = - Transmit finished 

3 R1 = tes send/received 

6 


8 ? 
11 BNEQ If NE nat pad byte 
51 DECL R1 Reduce count 
F4 BGTR 10$ If LEQ then no data 
208: BUG_CHECK INCONSTATE,FATAL ; Illegal offset 
50 52 00 3 EMPTY: MOVL R2,R0 : Pick up buffer 
4 DEALLMEM: : 
J V L ; Deallocate buffer 
00000000 * GF 17 rt ? MP G*COMSDRVDEALMEM Deall buf f 
48 0G: 3 
re § ; Update counters 
4B 5 ASSUME CDB _L_BSN EQ 4+CDB_L_BRC 
48 § ASSUME CDB"L"DBR EQ 4+CDB"L"BSN 
r ASSUME CDB_L_DBS EQ 4+CDB_L_DBR 
55 60 A4 4 4B § MOVAB CDB_L_BRC(R4).RS : Point to recetve counter base 
03 50 =«€ 4f 50 BLBC RO,5 : If LBC, then rev 
55 9% 3 28 2) ADDL #4,R : Adance to xmt counter base 
65 oe. § 5$ ADDL R1,(R5) ; Update byte count 
33 1E 8 5 BCC 10$ ; Br if no overflow 
65 cE r 4 MNEGL #1,(R5) ; Else, latch it 
08 AS (6 5 108 INCL gcR5) : Update message count 
8 1€ 6 g BCC 0$ : If CC. no overflow 
98 AS 1 cf 6 MNEGL #1,8(R5) ; Else, latch it 
50 a4 OD 8 208 MOVL  CDB_L_UCB(R4).R5 : Pick up ptr to UCB 
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CNDRIVER = VAX/VMS DECnet-C1 Class Driver =SEP=1984 01:19:27 VAX/VMS Macro v04-00 Page 4 
$0026 DG_FORK, Fork process for receipt of 0G aed 7 80:19:86 DRIVER. SRCIJCNDRIVER.MAR; 1 . (33) 
1D 50 —s«EB é0 133 BLBS RO, SEND_FORK ; IF LBS then xmt complete 
D 198 ; RECEIVE complete - if there is a pending receive 1/0 request, 
re 130 3; complete it. Otherwise, queue the buffer. 
D 19% ASSUME CDB_V_RUN £0 : 
D1 3 AS 33 D 1965 BLBC COB_W_STS(R4) EMPTY ; Br if trib not in RUN state 
D AS 1 1966 DECB B g-Rcv FO(R4) ; Dec the buffer count 
OE A2 33 ef a3 74 «196 SUBW3 = R2,, RS CXBSW_OFFSET(R2) 3 Store offset to message 
06 A 1 ; 79 1968 OVW R1,CKBSW_LERGTH(R2) : Set size 
20 84 F 087D 196 REMQUE a@COB_Q_RCV_IRP(R4),R3 : Remove waiting IRP 
. « 1970 C FINISH_RCV_IO 3 C then gone one, finish 
1971 : the 1/0 & exit 
1328 INSQUE (R2),@CDB_Q_RCV_MSG+4(R4) i; Queue receive msg for Late 
L L é the receive buffer poo 
87 1973 BRW FILLACV FILL th ive buff l 
N K: 
. 19¢2 SEND_FOR 
eh 1377 ; TRANSMIT completed. Locate and deque XMIT IRP and post it. 
OBA 1978 ; NOTE: the IRP's may be returned out of sequence on a power fail. 
50. (51 10 8B A 1984 ROTL #16,R1,R0 : Size in RO high word 
5001 80 OBB 198 MOVW #SS$ NORMAL,RO : Status in low word 
51 18 AG : 1 19 MOVAB CDB_G_XMT_IRP(R4),R1 ; Address queue header 
.. mm. +943 1984 MOVL R1,R3 3 Make a copy 
53 $3 DO 0898 1985 20S: mov.  (R$),R3 ; Get next IRP 
51 53 D1 0898 1986 CMPL sR RA ; Back to head of queue? 
13 Ht} 1987 BEQL 50 3; If EQL then yes, bugcheck 
2c A3 01 - 1988 CMPL R2, IRP$L_SVAPTE(R3) ; Buffer address match ? 
F2 12 OB8A4 1989 BNEQ 0$ : If NEQ no, try again 
53 $ OF OBAG 1990 REMQUE (R3),R3 ; Remove IRP from queue 
9 11 O8A9 1991 BRB SUC_TRB_1OPOST : Complete the 1/0 with trib 
te 1936 : info stuffed into I0ST2 
bbag 1994 50$: BUG_CHECK INCONSTATE,FATAL 
O8AF 1995 


| 
amen a 
9¢ 


7 
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FINISH. RCV ; Be 86 _ 


» Finish receive 1/0 proce 5-SEP-19 0:11: DRIVER. SRCICNDRIVER.MAR; 1 (34) 
-SBTTL FINISH_RCV_IO, Finish receive 1/0 processing 


++ 
FINISH_RCV_IO = Finish receive 1/0 processing 


This routine finishes receive processing and sends the IRP back to IOPOST. 
The receive free List is filled and a receive is started if needed. 


EC 
10 
1938 
| 1939 
? 
: 3 
§ 3 Inputs: Re = message buffer address 
: R5 = IRP address 
8 3 R4 = COB address 
14 3 RS = UCB address 
Vy} $ IPL = FIPL 
18 3; Outputs: RO-R4 are clobbered. ALl other registers are preserved. 
12 3 
O17 FINISH_RCV_10: 3; Finish recieve 1/0 request 
2c ad. 5 0 18 MOUL R2, IRP$L_SVAPTE(R3) : Save block address 
62 OE A C 01 MOVZWL CXB$W_OFFSET(R2),(R2)  ; Store offset to message 
6 5 co 020 ADDL R2,(R2) ; Make it a pointer 
04 A2 3C AS DO 1 MOVL  IRPSL_IOST2(R3),4(R2) ; Set address of user buffer 
OC a2 80 : MOVW © CXBSW LENGTH Re} R1 : Get size of transfer 
2a3 51 861 CMPW R1,1RP W_BCNT(R35 ; Request larger than actual? 
Os 1A 024 BGTRU 108 : Br GTRU then yes 
é¢ A3 1 60 025 MOVW R1,1RPSW_BCNT(R3) : Set size to transfer 
0 30A3 00 0 $ 10$:  MOVL  IRP$W_BCRT-2(R3),RO : Setup size of xfer in high word 
50 01 °8 0 MOVW #SS$_RORMAL RO :; Setup status in low word 
i: 7 028 NEQ SUC_TRB_1OPOST ; Br if success 
50 0054 8F 3C 029 MOVZWL #SSS_CTRLERR,RO : Set data path error 
1 04 030 LRL RY : Init second longword 
19 11 3 1 BRB 1OPOST 3; Post it 
DF 20 : ABORT_IRP_POST: 
Ss ss DF 2034 mOva $*#SS$_ABORT,RO : Setup I10SB image 
BR ; nish up 
14 11 E2 2035 B 1OPOST Finish 
Ee 5039 
E4 3 SUC_TRB_IOPOST: ; Successful Trib 1/0 completion | 
51 00002800 8F 00 E4 MOVL @XMSM_STS_ACTIVE!= ; Set device dependent bits to indicate 
EB 40 MSM_STS_RUNNING,R1 ; that the circuit is running 
30 A4 06 91 eB 41 CMPB #RBF TAR, COB_B_RCV_FQ(R4); Receive queue under threshold ? 
iB EF 4 BLEQU POST 3; If LEQU then no 
51 1000 8F ¢ Fl 4 BISL @XMSM_STS pure alt RI ; Signal buffer threshold problems 
A 0 : F8 2044 1OPOST: MOVO 0, IRP$L_TOST1(R35 : Store 10SB image 
00000000°GF 1 0 FC 45 JMP G*COMSPOST : Post IRP 
0 46 


| 
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ro V04-00 P 4 
FILLRCVLIST, Fill receive buffer List  S-SEP-1984 00:11:06 CDRIVER.SRCJCNDRIVER.MAR:1 (35) 
9 4 -SBTTL FILLRCVLIST, Fill receive buffer List 
2 4 ae -SBTTL ADDRCVLIST, Move IRP buffer to free List 
9 : FILLRCVLIST = Add to the receive buffer List 
2 3; ADDRCVLIST = Add IRP buffer to free List 
9 4 : This routine is entered to make sure that the receive buffer pool is full. 
a 2? : If it is not, buffers are allocated and queued to the list until it is. 
9 3 : For ADDRCVLIST, any buffer attached to the IRP is added to the free List 
9 28 ; even if the List is already filled. 
9 60 : Inputs: R3 - IRP address (ADDRCVLIST only) 
9 61 ; R4 - CDB address 
, bes 3 RS - UCB address 
, bee : Outputs: Only RO-R2 are clobbered. 
902 2066 :-- 
90 be? -ENABL LSB 
84 068 ADDRCVLIST: 3; Add IRP buffer to free List 
52 2C A3 ) 09 39? MOVL IRPSL_SVAPTE(R3) ,R2 : Get buffer, if any 
08 1 090 070 BEQL FILLREVLIST : If mone, fill rcv List if needed 
2c A D4 090 071 CLRL IRPSL_SVAPTE(R3) ; Detach the buffer 
0908 628 PUSHQ R3 ; Save regs 
7s 0316 15 BRB 20$ 3; Add buffer to free List 
831 075 FILLRCVLIST: 
4 376 PUSHQ R3 ; Save regs 
3c AG «63D AG) SO91s«0913 «2077 108: = CMPB CDB_B_RCV_FQ(R4) ,CDB_B_RCV_CNT (RA) 3 Should new block be added? 
;, 4 78 BGEQ 0$ : If GEQU no = List filled 
51 38 A4 0046C BF Al ODIA 7 ADDW #CXBSC_OVERHEAD ,CDB_W_BUFSIZ(R4),R1; Compute block size need 
00000096" F 16 0921 2080 JSB G“EXE SALONONPAGED : Allocate nonpaged memory 
0 €9 0927 81 BLBC ° : If LBC then failure 
08 A2 51 B80 4 4 Bas 208 MOVW R1, 1RP$W_SIZE(R2) ; Insert block size 
> ; 3s r : Give SCS receive datagram 
53 54 a4 00 09 : MOVL  CDB_L_CDT(R4),.R3 : Pick up CDT address 
20 AS O0O9E C5) 91 09 CMPB YCBSB_CN_PORT (RS) , CDTSB_RSTATION(R3) ;_Talking to ourselves? 
1 9 3 BNEQ 0$ ; If NEQ, no 
53 0094 C D OSA MOVL UCBSL_TWIN_CDT(R5) ,R3 : Yes, use other COT 
54 0084 C D 93F 90 30$: MOVL UCBSL-PDT(RS) ,R4 3: and PDT address 
OA A2 18 9B 0944 91 V7Bu S*#DYRSC_CXB, IRPSB_TYPE(R2) ; Insert block type 
948 3 QUEUE _0G_BUF ; Put the block on the free que 
09 50 €9 0948 ) LBC R : Br if failure 
54 04 AE 00 094 94 MOVL 4(§P),R4 : Pick up CDB pointer 
D A4 95 95 INCB COB_B_RCV_FQ(R4) ; Bump free que count 
11. 09 38 BRB 10$ ; Try for more 
50 1) 9 97 40$: MOVL R2,RO : Pick the buffer 
0 1 95A 38 BEQL ; There is none 
FEE6 i ‘ t+ BSB DEALLMEM : Get rid of the buffer 
95F 2101 50$: POPQ  R3 > Restore regs 
05 368 : § RSB 3; Return 
96 104 -DSABL LSB 
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MLATE, Translate Channel to COB address SEP-1984 00:11:06 (CDRIVER.SRCICNDRIVER.MAR; 1 (36) 
2 } -SBTTL XLATE, Translate Channel to COB address 
9 1 p++ 
2 ! 3; KLATE = Translate Channel to CDB address 
9 Wt : This routine is called to return the CDB address for a particular 
a 11 3: channel. 
303 5414 | 
96 115 : Inputs: R = IRP address 
+9 118 3 RS = UCB address 
Be 113 $ Outputs: RO = status return for success of call. 
96 120; R9 = coe edéress if successful 
8 : 13 1 otherw 
8 \ : R1,R2 are clobberd, all other registers are preserved. 
963 2125 :-- 
96 1 8 XLATE 3 prenesete CHAN into CDB address 
3c 60096 1 MOVZWL yt f CHAN(R3) ,RO : Get channel 
10 0967 2128 BSBB XLATE_ CHAN 3; Translate channel 
90 0969 129 MOVB Ri, IRP$B_ INDEX(R3) 3 Save index in IRP 
DO 096D 2150 MOVL RO, [RPSL _CDB(R3) 3; Store CDB address in IRP 
05 ode : 1 RSB 3; Return to caller 
972 21 : XLATE_CHAN: 
51 OF 9A 097 134 MOVZBL #MAX_TRB-1 Setup loop counter (zero indexed) 
00EO ¢541 50 81 0975 2135 108: CMPW  RO,UCBSW vee. ACHAN(RSDERIG Channels match? 
0c 13 0978 21 $ BEQL re : Br if yes - got it 
F551 £F4& O97D 21 SOBGEQ 10$ 3; Loop 
50 2op4 er 3c (09 0 1 8 30$:  MOVZWL asés DEVINACT,RO ; Return, channel offline 
9 1 oO 09 1 MOVL #1,R9 3 otup invalid’’ flag 
05 09 3 140 RSB ; r+} eave 
3 9 123 40$: ; 
; 4 148 : : Found match on channel 
59 OOA0 C541 0D 989 2145 MOVL CBSL_VEC_CDB(R5)CR1],R9; Get CDB address 
06 ~=«1 98F 138 BEQL ; Br if no CDB p> a - error 
50 «(01 3 991 14 MOVZWL S“*#SS$_NORMAL ,RO : Set successful return status 
ape 128 RSB ; Return 
332 150 50$: BUG_CHECK INCONSTATE,FATAL 
999 2151 
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v04- VALIDATE _P2, Validate P2 buffer paramet 5-SEP-1984 80:11:06 YORIVER. SRCICNDRIVER MAR; 1 = 39) 


208: : 
3; Loop to check P2 buffer parameter to circuit parameter table 


Bicw3 #*C<PRM_M_TYPE>,(R7)+,R1; Get next param i.d. 
Q 0$ ; If EQL, at end of table 
Parameters match? 


51 87 F000 8F 


Ssesese 


BEQL 

CMP RO,R1 
Br if yes 

Else, skip to next parameter 


BEQL 
ADDL2 #PARAM_C_ENTRY-2,R7 
RB 208 


443 } ; ~SBTTL VALIDATE_P2, Validate P2 buffer parameters 
99 155 ;44 
999 1 $ ; VALIDATE_P2 = Validate P2 buffer parameters 
999 21 8 : This routine is called to validate the P2 buffer parameters. The parameters 
999 2159 ; are checked against a parameter table which verifies that the minimum value 
999 2160 ; and maximum value is not violated, and that status flags are set or clear 
14 133 3 as required. 
999 188 : The way in this routine is written, the require word of the verification | 
44 19 3 table can only have 1 bit set at a time. 
999 198 ; Inputs: R1 = Address of parameter verification table | 
999 21 $ Re = Status word from UCB or CDB | 
999 2168; R35 = IRP address 
999 19% 3 RS = UCB address 
999 2170 ; R9 = If low bit clear then ptr to context block (CDB or UCB) | 
1444 \e) : If low bit set then no context block exists | 
999 178 : IPL = FIPL or ASTDEL 
3 | 
999 2175 ; Outputs: RO = status return of parameters 
144 178 : R1 = i.d. of parameter causing problem on error | 
0999 178 : ALL other registers are preserved. 
0999 5180 
999 2181 VALIDATE_P2: 3; Validate P2 buffer parameters | 
O1EA 8F BB 0999 21 ¢ PUSHR #*M<R1,R3,R5,R6,R7,R8> =; Save registers | 
99D 21 ; NB:R1 must be on top of stack 
56 ¢s 8 0 99D 2184 MOVL @IRPSL_SVAPTE(R3) .R6 3; Get eystes P2 buffer address 
58 2A C O9A1 2185 MOVZWL IRPSW_BCNT(R3) RB 3 Get size of P2 buffer 
58 06 C6 O9A5 21 $ DIVL #6,R8 ; Get number of params in P2 
4F sll ~~ : S108 BRB 40$ :; Treat as none if too few bytes 
O3AK +34 : ; Loop to check next parameter in P2 buffer 
50 $6 3C O9AA 2191 MOVZWL (R6)+,RO 3; Get parameter type from P2 | 
55 6 00 Q9AD 136 MOVL (R6)+,R5 3; Get parameter value from P2 
57 6E€ 00 HS MOVL (SP) ,R7 3 Get parameter table address | 
4 
139 | 
Me 

1 

9BE ¢? 

9C Q 

EE +5 § 308 8 Try next parameter 

i 3 ; : Match found = check min,max,valid, invalid 
5387 3¢ ¢ MOVZWL (R7)+,R3 : Get offset/width 
16 59 € 9C BLBS RY >: If LBS then no current block 
50 53 OA EF 98 8 EXTZV #OFF_V_VALUE.#OFF_S_VALUE,R3.RO ; Get offset 
A €F 09D EXTZV #OFF_V_WIDTH,MOFF_S WIDTH,RS,RS ; Get width 
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VALIDATE_P2, Validate P2 buffer 
EF dS 1 EXTZV 
33 g ° 3, 1 CMPW 
1 43 1 BEQL 
87 65 8 E 15 338 CMP W 
1 1F Q9E 14 BLSSU 
87 5 st 9E 15 CMPW 
1 A O9E 1 BGTRU 
55 7 ° SEA 1 MOVW 
é 9ED 18 BEQL 
52 ° SEF 1 BIT 
8 oF 0 BEQL 
52 ° 44 35$: BiTW 
: F BNEQ 
AE £ 9F9 40$: SOBGTR 
50 1 3¢ O9FC 4 MOVZWL 
6 11 OFF 5 RB 
we § 
33 51 3¢C OQA01 50$: MOVZWL 
14 b0 A0S 8 MOVL 
O1EA BF BA A07 9 60S: POPR 
05 A0B 0 RSB 
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(sp) 
$_BADPARAM,RO 
AM<R1,R3,R5,R6,R7,RB> 
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Get current value 

Value chang ? 

if EQL no e too next en 
value = Ms 


iS he volue- too “big? 
Br if yes = error 
Pick up required 

None 

Check required bit 

Br if not on = error 
sheet invalid bits 

8 on = error 

Br if more parameters 
Set success return 
And return 


Return bad parameter type 
Set error return 
Restore registers 
Return to caller 


———————————————_——“ 
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. : § -SBTTL UNPACK_P2_BUF, Unpack a P2 parameter from P2 buffer 
AQC 4 34+ 
$ ‘ 3 UNPACK_P2_BUF = Unpack a P2 parameter from P2 buffer 
AOC ; 
~ : . ; This routine is called to get a P2 parameter from the P2 buffer. 
AOC 40 : Inputs: Ri = Parameter type code 
AOC 41; R = IRP address 
. : tg 3 R5 = UCB address 
“ : te ; IPL = IPLS_ASTDEL to allow user paging. 
AOC rt] ; Outputs: RO = SS$_NORMAL if successful 
AOC 47 ; SSS_INSFARG otherwise 
Ane re 3 R2 = Parameter value if success else destroyed 
Rt 29 ; ALL other registers are preserved. 
AOC ie: 
aide : UNPACK _P2_ BUF : ; Unpack P2 buffer 
OOEO 8F 6B aoe 54 POSHR #*M<R5,R6,R7> : Save registers 
56 C 83 0 Al 55 MOVL @IRPSL_SVAPTE(R3) ,R6 : Get system P2 buffer address 
57 2 A3 C OA14 28 MOVZWL IRPSW_BCNT(R3),R7 ; Get size of P2 buffer 
57 06 £¢ A18 5 DIVL #6,R7 3; Get number of params in P2 
sis A1B 28 BEQL 20 ; Treat as none if too few bytes 
50 O01 3 DAIB 2B 108 MOVZWL S“#SS$_NORMAL ,RO 3; Awsume success 
OA o ef ; : Loop to check next parameter in P2 buffer 
55 86 3C OA 4 8 MOVZWL (R6)+,R5 ; Get parameter type from P2 
2 86 DO OA 64 MOVL (R6)+,R2 3; Get parameter value from P2 
5 51 61 OA g 65 CMPW R1,R5 : Parameters match? 
08 13 A 66 BEaL = =_—«-30$ : Br if yes 
F2 F 0 ? 44 SOBGTR R7,10$ : Br if more parameters 
50 0114 8F 3¢ BA +4 $os: MOVZWL #SS$_INSFARG,RO : Return error 
OOEO BF BA OA 0 308: POPR #°M<R5 ,R6,R7> ; Restore registers 
05 OA 71 RSB ; Return to caller 
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-SBTTL CNLEND, End of driver 
« = €,415>8<-16> 
PATCH:: .LONG 32-8 
~ LONG parenes 
-—BLKB 32- 
544 
; Label that marks the end of the driver 


CN_END: ; Last location in driver 
- END 
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Symbol table -SEP=1984 00:11: 
SCSSCONFIG SYS eeneenee 


7 VAX/VMS Macro v04-00 Page 56 
66 YD ve 3 
2 VALIDATE _P2 
SCSSCONNECT eenewere =X VECSL_UNTTINIT 2 
SCS$DISCONNECT eeeereee x XLATE 
SCS$GB_SYSTEMID eereeeee =X XLATE_CHAN 
$GW"MAXD x 
x 
00 
8 
0 
00 
00 
00 


r 
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G 
SCSSLISTEN eererere G 


“ 
m 
= 
° 
ooo 
oO 


uM 
XMT“RCV_FDT_CO 

3 XMT“START 

; ZAP~CD 


ZAP~CDB_R9 


zmawD wD 
ooo 


“CTRLERR 
SS$"DEVACTIVE 
$$$ ~DEVALRALLOC 
S$_DEVINACT 
5S$~DEVOF FLINE 
ARG 


5S$_INSF 
m 


np DBD 2D 
oO 
Ww 


UCBSE_CN_PORT 
UCBS$B_DEVCLASS s 
$8 _DIPL 


DOWD OOM & ODOT OMVIAO OI FON“ QNOWvUPV@nve 
SOWOOO MWDWMOM LW & HMO MLSE MEO OMOom 


UCBSL~TWIN_CDT 
UCBSL-VvEC_CDB 
UCBSM~CN_TNITED 
UCBSM~ONC INE 


= 

= 
UCBSA_POWER = 
UCBSV_CN_INITED = 
UCBSV_ R = 
UCBSW_DEVBUF S17 © 
UCBSW_DEVSTS = 
UCBSu_ Y 
UCBSW_REFC - 
UCBSW_STS 
UCBSW_VEC_CHAN 


UNIT_TINIT 
UNPACK_P2_BUF 


| 1 eee a — — 


; 
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C acro 
Psect synopsis RCJCN 


rer enneeeet ae secon e + 


! Psect synopsis ! 


far rmonron eee nan sas} 


PSECT name Allocation PSECT No. Attributes 
» 6 « 448 000 ¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
SABSS 0000100 ¢ 256.) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD 
$$$105_PROLOGUE 0000006D ih b¢ ( -) NOPIC USR CON REL LCL NOSHR EXE RD 
$$$115-DRIVER QO000A60 ( 2656.) O03 ¢ 3.) NOPIC USR CON REL LCL NOSHR EXE RD 
¢ ewer e we nmeer ene eee nen wecane + 
: Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization ra’) 00 +00 200.07 00:00:00.85 
Command processing 113 00:00:00.39 es Bch 5 
Pass 1 811 00:00: §-99 00:01:43.79 
Symbol table sort ! 00:00:03.73 83 #20: 19-48 
Pass 2 41 00: 803-89 88036 -01 
Symbol table output 15 00:00:00.20 Bo 288: 0.82 
Psect synopsis output 0 00: et 0:00:00.06 
Cross-reference output ! OF BO $6.9 Bo 88 08-88 
Assembler run totals 138 00:00:36.20 0:02:29.55 


The working set Limit was 2400 pages. 
217048 bytes (424 pages) of virtual memory were used to buffer the intermediate code. 
There were 200 pages of symbol table space allocated to hold 3593 non-local and 117 local symbols. 
2287 source Lines were read in Pass 1, orotes 8 22 object records in Pass 2. 

pages of virtual memory were used to define 62 macros. 


+ + 
! Macro Library statistics ! 
¢ ww cere sr een new ene een ee ecaeereane = oo 


Macro Library name Macros defined 
-8255$0UA28:(SYS.OBJJLIB.MLB; 1 36 
$255S$D0UA28:(SYSLIBIJSTARLET.MLB;2 14 
TOTALS (all Libraries) 50 


3866 GETS were required to define 50 macros. 
There were no errors, warnings or information messages. 
MACRO/L1S=L1S$: CNDRIVER/OBJ=0BJ$:CNDRIVER MSRC$:CNDRIVER/UPDATE=(ENHS: CNDRIVER) *EXECMLS/LIB 
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NOWRT NOVEC BYTE 


WRT NOVEC LONG 


NT CORPORATION 


0107 AH BT13A- SE oes D 
ViVi C D PROPRIETARY 
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